“Excel VBA membagi string menjadi sel” Kode Jawaban

Excel VBA membagi string menjadi sel

Sub SplitBySemicolonExample()
    'Define variables
    Dim MyArray() As String, MyString As String, I As Variant, N As Integer
    
    'Sample string with semi colon delimiters
    MyString = "[email protected];[email protected];[email protected];[email protected]"
    
    'Use Split function to divide up the component parts of the string
    MyArray = Split(MyString, ";")
    
    'Clear the worksheet
    ActiveSheet.UsedRange.Clear
    
    'iterate through the array
    For N = 0 To UBound(MyArray)
        'Place each email address into the first column of the worksheet
        Range("A" & N + 1).Value = MyArray(N)
    Next N
End Sub
Ana Faria Carneiro

Excel VBA membagi string menjadi sel

Sub SplitBySemicolonExample()
    'Define variables
    Dim MyArray() As String, MyString As String, I As Variant, N As Integer
    
    'Sample string with semi colon delimiters
    MyString = "[email protected];[email protected];[email protected];[email protected]"
    
    'Use Split function to divide up the component parts of the string
    MyArray = Split(MyString, ";")
    
    'Clear the worksheet
    ActiveSheet.UsedRange.Clear
    
    'iterate through the array
    For N = 0 To UBound(MyArray)
        'Place each email address into the first column of the worksheet
        Range("A" & N + 1).Value = MyArray(N)
    Next N
End Sub
Ana Faria Carneiro

Jawaban yang mirip dengan “Excel VBA membagi string menjadi sel”

Pertanyaan yang mirip dengan “Excel VBA membagi string menjadi sel”

Lebih banyak jawaban terkait untuk “Excel VBA membagi string menjadi sel” di VBA

Jelajahi jawaban kode populer menurut bahasa

Jelajahi bahasa kode lainnya