[已解决]VBA数组用一种方法 用Instr

laoau138

VBA数组用一种方法  用Instr

最佳答案

月排行榜 / 总排行榜

周义坤

2017-6-10 12:17

1. Sub ek_sky()
   
2. Dim st As String, sv As String
   
3. Dim ar1 As Variant
   
4. Dim i As Long
   
5.   st = Range("A1").Text
   
6.   ar1 = Split(st, ",")
   
7.    For i = 0 To UBound(ar1)
   
8.     If InStr("," & st & ",", "," & ar1(i) & ",") > 0 Then
   
9.         sv = sv & "," & ar1(i)
   
10.          st = Replace("," & st & ",", "," & ar1(i) & ",", ",")
    
11.     End If
    
12.   Next i
    
13. [b1] = Mid(sv, 2)
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

laoau138

谁来做一下

周义坤

1. Sub ek_sky()
   
2. Dim st As String, sv As String
   
3. Dim ar1 As Variant
   
4. Dim i As Long
   
5.   st = Range("A1").Text
   
6.   ar1 = Split(st, ",")
   
7.    For i = 0 To UBound(ar1)
   
8.     If InStr("," & st & ",", "," & ar1(i) & ",") > 0 Then
   
9.         sv = sv & "," & ar1(i)
   
10.          st = Replace("," & st & ",", "," & ar1(i) & ",", ",")
    
11.     End If
    
12.   Next i
    
13. [b1] = Mid(sv, 2)
    
14. End Sub
    

复制代码

laoau138

周义坤 发表于 2017-6-10 12:17

用三种方法，还有二种方法没有写

周义坤

like 跟 instr 差不多  filter的方法

1. Sub ek_sky()
   
2.   Dim a As String
   
3.   Dim varar1 As Variant, varar2() As Variant
   
4.   Dim i As Byte, j As Byte
   
5.   ReDim varar2(0 To 0)
   
6.      a = [a1].Text: j = 0
   
7.      varar1 = Split(a, ",")
   
8.      varar2(0) = varar1(0)
   
9.        For i = 0 To UBound(varar1)
   
10.           b = Filter(varar2, varar1(i))
    
11.             If UBound(b) = -1 Then
    
12.                 j = j + 1
    
13.             ReDim Preserve varar2(0 To j)
    
14.               varar2(j) = varar1(i)
    
15.             End If
    
16.        Next i
    
17. [b1] = Join(varar2, ",")
    
18. End Sub
    

复制代码

laoau138

周义坤 发表于 2017-6-11 19:49
like 跟 instr 差不多  filter的方法

大侠请用LIKE的方法，不懂啊

VBA数组用两种方法 用like 和 instr方法


http://www.excelpx.com/thread-431008-1-1.html