GBKEE

將資料顯示於 Sheet2

1. Sub Ex()
   
2.     Dim Ar, Ar1, E, A, R As Integer, C As Integer, S As Integer
   
3.     R = 1
   
4.     C = 1
   
5.     Sheet2.Cells = ""
   
6.     For Each E In Sheet1.Range("A1:C" & Sheet1.Range("A1").End(xlDown).Row).Rows
   
7.         Sheet2.Cells(R, C) = E.Cells(1, 1) & "-" & E.Cells(1, 2)
   
8.         Ar = Split(E.Cells(1, 3), " ")
   
9.         If InStr(Ar(0), ",") Then
   
10.             Ar = Split(Ar(0), ",")
    
11.             For Each A In Ar
    
12.                 If InStr(A, "~") Then
    
13.                     Ar1 = Split(A, "~")
    
14.                     R = R + 1
    
15.                     S = Ar1(1) - Right(Ar1(0), Len(Ar1(1))) + 1
    
16.                     Sheet2.Cells(R, C) = Ar1(0)
    
17.                     Sheet2.Cells(R, C).AutoFill Sheet2.Cells(R, C).Resize(S)
    
18.                     R = R + S - 1
    
19.                 Else
    
20.                     R = R + 1
    
21.                     Sheet2.Cells(R, C) = A
    
22.                 End If
    
23.             Next
    
24.         ElseIf InStr(Ar(0), ",") = False Then
    
25.             If InStr(Ar(0), "~") Then
    
26.                     Ar1 = Split(Ar(0), "~")
    
27.                     R = R + 1
    
28.                     S = Ar1(1) - Right(Ar1(0), Len(Ar1(1))) + 1
    
29.                     Sheet2.Cells(R, C) = Ar1(0)
    
30.                     Sheet2.Cells(R, C).AutoFill Sheet2.Cells(R, C).Resize(S)
    
31.                     R = R + S - 1
    
32.                 Else
    
33.                     R = R + 1
    
34.                     Sheet2.Cells(R, C) = Ar(0)
    
35.                 End If
    
36.         
    
37.         End If
    
38.         C = C + 1
    
39.         R = 1
    
40.     Next
    
41. End Sub

複製代碼