register313

回復 1# swede

1. Sub ZZ()
   
2. '第1個(的位置放在ARR(1),第2個(的位置放在ARR(2)...
   
3. Dim ARR(10)                              '至多可找10個"("
   
4. ARR(1) = InStr(1, adate, "(")
   
5. For I = 2 To 100                         '字串至多100字元
   
6.   X = InStr(ARR(I - 1) + 1, adate, "(")
   
7.   If X <> 0 Then
   
8.      ARR(I) = X
   
9.      Cells(I, "B") = ARR(I)
   
10.   Else:     End
    
11.   End If
    
12. Next
    
13. End Sub

複製代碼