Split up or delineate data
Hi,
Am Mon, 1 Feb 2021 02:21:00 -0800 (PST) schrieb Tatsujin:
I also wanted to find a solution where the data only existed in an array of strings or a variant, but I could probably just transfer the array to a spreadsheet column and run your code.
try:
Dim myStr As String
Dim varData As Variant
myStr = "ant,antique,art,bee,beautiful,bored,chores,dancin g,daytime"
varData = Split(myStr, ",")
Range("A1").Resize(UBound(varData) + 1) = Application.Transpose(varData)
Regards
Claus B.
--
Windows10
Microsoft 365 for business
|