2

Excel 2010 で、VBA を使用して、特定の文字が見つかったときに文字列を分割するにはどうすればよいですか?

A1=としましょう。"This is a | test of | the | emergency broadcast signal" そして、それを次のような変数に代入します。

strColumnA = Range("A" & CStr(currRow)).Value

ここで、ワークシート 2 の最後に 4 つの新しい行を追加します。すべての列 A は次のようになります。

A1 = "This is a"
A2 = "test of"
A3 = "the"
A4 = "emergency broadcast signal"

何か案は？

4

2 に答える 2

0

使用するSplit()

Sub Sample()
    Dim Ret
    Dim strColumnA As String
    Dim i As Long

    strColumnA = "This is a | test of | the | emergency broadcast signal"
    Ret = Split(strColumnA, "|")

    For i = LBound(Ret) To UBound(Ret)
        Debug.Print Ret(i)
    Next i
End Sub
于 2013-04-19T07:41:05.543 に答える