- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
±N¸ê®ÆÅã¥Ü©ó Sheet2- Sub Ex()
- Dim Ar, Ar1, E, A, R As Integer, C As Integer, S As Integer
- R = 1
- C = 1
- Sheet2.Cells = ""
- For Each E In Sheet1.Range("A1:C" & Sheet1.Range("A1").End(xlDown).Row).Rows
- Sheet2.Cells(R, C) = E.Cells(1, 1) & "-" & E.Cells(1, 2)
- Ar = Split(E.Cells(1, 3), " ")
- If InStr(Ar(0), ",") Then
- Ar = Split(Ar(0), ",")
- For Each A In Ar
- If InStr(A, "~") Then
- Ar1 = Split(A, "~")
- R = R + 1
- S = Ar1(1) - Right(Ar1(0), Len(Ar1(1))) + 1
- Sheet2.Cells(R, C) = Ar1(0)
- Sheet2.Cells(R, C).AutoFill Sheet2.Cells(R, C).Resize(S)
- R = R + S - 1
- Else
- R = R + 1
- Sheet2.Cells(R, C) = A
- End If
- Next
- ElseIf InStr(Ar(0), ",") = False Then
- If InStr(Ar(0), "~") Then
- Ar1 = Split(Ar(0), "~")
- R = R + 1
- S = Ar1(1) - Right(Ar1(0), Len(Ar1(1))) + 1
- Sheet2.Cells(R, C) = Ar1(0)
- Sheet2.Cells(R, C).AutoFill Sheet2.Cells(R, C).Resize(S)
- R = R + S - 1
- Else
- R = R + 1
- Sheet2.Cells(R, C) = Ar(0)
- End If
-
- End If
- C = C + 1
- R = 1
- Next
- End Sub
½Æ»s¥N½X |
|