Excel VBA diviser la chaîne en cellules
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