[已解决]数据整理--请高手帮帮忙

diymywork

从系统中导出来的数据量特别大，现在要整理成统一的格式，请大家帮帮忙想想办法，谢谢啦

最佳答案

月排行榜 / 总排行榜

TTTTT

2012-3-17 21:53

参考一下.............

跳转到最佳答案楼层

diymywork

在线等待，要是有不明白的地方，随时可以问我，谢谢

TTTTT

每一种“班委”类别都是4个？

TTTTT

都等了半小时了，也不见回音，还“随时可以问我”？

TTTTT

参考一下.............

diymywork

TTTTT 发表于 2012-3-17 21:53
参考一下.............

不好意思，为了格式统一，都是4个的。

TTTTT

给你做好了，居然都不下载看一下

TTTTT

也许我没有说清楚，点击一下这个按钮：

diymywork

TTTTT 发表于 2012-3-17 23:05
也许我没有说清楚，点击一下这个按钮：

刚才别人给我了一段代码，能帮忙解释一下吗？

• Sub yy()
• Dim Arr, i&, r1, n&
  
• Sheet1.Activate
  
• [e4:e30].ClearContents
  
• Arr = [a1].CurrentRegion
  
• For i = 3 To UBound(Arr)
  
• Set r1 = [d:d].Find(Arr(i, 1), , , 2)
  
• If Not r1 Is Nothing Then
  
• n = r1.Row
  
• If Cells(n, 5) = "" Then
  
• Cells(n, 5) = Arr(i, 2)
  
• Else
  
• Do
  
• n = n + 1
  
• If Cells(n, 5) = "" Then
  
• Cells(n, 5) = Arr(i, 2): Exit Do
  
• End If
  
• Loop While Cells(n, 5) <> ""
  
• End If
  
• End If
  
• Next
  
• End Sub
  
  

diymywork

diymywork 发表于 2012-3-17 23:09
刚才别人给我了一段代码，能帮忙解释一下吗？

Sub yy()

呀，你这个貌似比上一段 代码更强大呀