[已解决]如何将A1-E14的内容用VBA代码运行筛选后显示在G1-BX1中

mooming

如何将A1-E14的内容用VBA代码运行筛选后显示在G1-BX1中，要求有重复内容的只显示其中一个 行显示.zip (6.61 KB, 下载次数: 10)

2014-10-17 23:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-17 23:40

1. Sub a()
   
2. Dim i&, j&, dic As Object, arr, brr(), s&
   
3. arr = [a1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To 5
   
6.         If arr(i, j) <> "" Then
   
7.             s = s + 1
   
8.             ReDim Preserve brr(1 To s)
   
9.             brr(s) = arr(i, j)
   
10.         End If
    
11.     Next
    
12. Next
    
13. 
    
14. Set dic = CreateObject("scripting.dictionary")
    
15. For s = 1 To UBound(brr)
    
16.     dic(brr(s)) = ""
    
17. Next
    
18. [g1].Resize(1, dic.Count) = dic.keys
    
19. 
    
20. End Sub

复制代码

跳转到最佳答案楼层

mooming

期待 大侠出手

这儿有肥猫

1. Sub a()
   
2. Dim i&, j&, dic As Object, arr, brr(), s&
   
3. arr = [a1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To 5
   
6.         If arr(i, j) <> "" Then
   
7.             s = s + 1
   
8.             ReDim Preserve brr(1 To s)
   
9.             brr(s) = arr(i, j)
   
10.         End If
    
11.     Next
    
12. Next
    
13. 
    
14. Set dic = CreateObject("scripting.dictionary")
    
15. For s = 1 To UBound(brr)
    
16.     dic(brr(s)) = ""
    
17. Next
    
18. [g1].Resize(1, dic.Count) = dic.keys
    
19. 
    
20. End Sub

复制代码

这儿有肥猫

是这个意思？

mooming

这儿有肥猫 发表于 2014-10-17 23:41
是这个意思？

实在是太谢谢了，我自己弄的代码出来的结果都不全

这儿有肥猫

mooming 发表于 2014-10-17 23:57
实在是太谢谢了，我自己弄的代码出来的结果都不全

多练练就会了~