[已解决]怎么用VBA在表格的第一列显示同行中的相同项目？

gwf559

因为每天要处理大量的数据，考虑到工作效率以及保持数据的准确性，请问怎么用VBA在表格的第一列显示同行中的相同项目，
而数据位置保持不变？

最佳答案

月排行榜 / 总排行榜

as0810114

2015-1-2 22:27

1. Sub test()
   
2.     Dim arr, i
   
3.     Dim brr(1 To 10000, 1 To 1)
   
4.     arr = Range("d7").CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             If arr(i, j) <> "" Then
   
8.                 k = k + 1
   
9.                 brr(k, 1) = arr(i, j)
   
10.                 Exit For
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     [d7].Resize(k) = brr
    
15. End Sub

复制代码

跳转到最佳答案楼层

as0810114

给个模拟答案，都不知道你说的什么意思。

gwf559

as0810114 发表于 2015-1-2 21:27
给个模拟答案，都不知道你说的什么意思。

就是说用VBA把黄色格子的内容复制到表格第一列的意思。这只是其中一部分，其实下面还有很多行这样的数据。

as0810114

1. Sub test()
   
2.     Dim arr, i
   
3.     Dim brr(1 To 10000, 1 To 1)
   
4.     arr = Range("d7").CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             If arr(i, j) <> "" Then
   
8.                 k = k + 1
   
9.                 brr(k, 1) = arr(i, j)
   
10.                 Exit For
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     [d7].Resize(k) = brr
    
15. End Sub

复制代码