将字典改写为数组方法

laoau138

将字典改写为数组方法

today0427

1. Sub today() '数组去重
   
2.     Dim arr, str$, i%, j%
   
3.     arr = Sheets("Sheet1").Range("e11:g" & Sheets("Sheet1").[e65536].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         For j = 1 To UBound(arr, 2)
   
6.             If InStr(str, arr(i, j)) Then
   
7.                 arr(i, j) = ""
   
8.             Else: str = str & arr(i, j)
   
9.             End If
   
10.         Next
    
11.         str = ""
    
12.     Next
    
13.     Sheets("Sheet1").[i11].Resize(i, j).Clear
    
14.     Sheets("Sheet1").[i11].Resize(i - 1, j - 1) = arr
    
15. End Sub

复制代码

grf1973

考虑到火火水这种情况按2楼代码会出现火 水（中间有空格），所以小小处理一下。

1. Sub today() '数组去重
   
2.     Dim arr, str$, i%, j%
   
3.     arr = Sheets("Sheet1").Range("e11:g" & Sheets("Sheet1").[e65536].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         str = arr(i, 1)
   
6.         For j = 2 To UBound(arr, 2)
   
7.             If InStr(str, arr(i, j)) = 0 Then str = str & arr(i, j)
   
8.             arr(i, j) = ""
   
9.         Next
   
10.         For j = 2 To Len(str)
    
11.             arr(i, j) = Mid(str, j, 1)
    
12.         Next
    
13.     Next
    
14.     Sheets("Sheet1").[i11].Resize(i, j).Clear
    
15.     Sheets("Sheet1").[i11].Resize(i - 1, j - 1) = arr
    
16. End Sub

复制代码

today0427

grf1973 发表于 2016-10-4 20:30
考虑到火火水这种情况按2楼代码会出现火 水（中间有空格），所以小小处理一下。

本来想做两种情况，一种是空格的一种不空格的，哈哈不用做了，学习下您的就行了！