Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
Dim r As Range
Dim d, a
Set r = Range("A1:A3")
d = Join(Application.Transpose(r), ",,")
d = Replace(d, "|", ",")
a = split(d, ",")
Range("B1").Resize(UBound(a) + 1) = Application.Transpose(a)
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!