excel vba split string into cells excel vba split string into cells

The solution for “excel vba split string into cells excel vba split string into cells” can be found here. The following code will assist you in solving the problem.

Get the Code! 
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

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

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts