如何将一万条内容如何自动归类同一地点发生的事件到一个表内

dundy_den

如何将一万条内容如何自动归类同一地点发生的事件到一个表内 新建 Microsoft Excel 工作表 (2).rar (1.9 KB, 下载次数: 22)

2012-5-28 17:14 上传

点击文件名下载附件

zjdh

你那数据源就是这样不完整的吗？？！！

无聊的疯子

怎么个归法??没说哦!!

依次排下去就行了么??

只排上海的???

我觉得全部重新排一下,然后你用筛选就可以很方便的筛选出来了!!何必搞那么复杂呢?

无聊的疯子

1. 
   
2. Sub CC()
   
3. Dim Arr, Hx As Integer, Brr, X As Integer, Lx As Byte
   
4.   Arr = Sheet1.UsedRange
   
5.   ReDim Brr(1 To UBound(Arr) * 3, 1 To 3)
   
6.   For X = 2 To UBound(Arr)
   
7.     For Lx = 3 To UBound(Arr, 2)
   
8.       If Arr(X, Lx) <> "" Then
   
9.         Hx = Hx + 1
   
10.         Brr(Hx, 1) = Arr(X, Lx)
    
11.         Brr(Hx, 2) = Arr(X, 1)
    
12.         Brr(Hx, 3) = Arr(X, 2)
    
13.       End If
    
14.     Next
    
15.   Next
    
16.   Sheet2.Cells.ClearContents
    
17.   Sheet2.Range("A1:C1") = Array("地址", "事件名称", "日期")
    
18.   Sheet2.Range("A2").Resize(Hx, 3) = Brr
    
19. End Sub
    
20. 
    

复制代码

dundy_den

无聊的疯子 发表于 2012-5-28 18:26

不是这个意思，我的意思只要显示一个地址的相关事件就可以了

无聊的疯子

数据规范后，不是更方便任何操作吗？

dundy_den

无聊的疯子 发表于 2012-5-28 18:26

这段程序没看明白，能帮我稍微注释下吗，我改了几个参数后都出错了。