How do I simultaneously separate two ranges?
Only one of them was divided by the that I am using right now (thank you, Vbasic):
With ThisWorkbook.Sheets("Cell Splitter")
Dim Descriptions() As String, dUpper As Long, d As Long
Dim r As Long, rString As String
For r = .Cells(.Rows.Count, "K").End(xlUp).Row To 3 Step -1
rString = CStr(.Cells(r, "K").Value)
If InStr(rString, ",") > 0 Then
Descriptions = Split(rString, ",")
dUpper = UBound(Descriptions)
For d = dUpper To 0 Step -1
.Cells(r, "K").Value = Descriptions(d)
If d > 0 Then .Rows(r).Insert
I tried adding another range into the code but got a "400" error.
For example: I added K:O or "K" & "O" (Which doesnt work). I only wanted to process only 2 columns.
What I wanted it to do: