В данной теме разбивают одномерный массив по строкам
Прошу помочь пожайлуста, есть код, для который делит выделенный столбец ячеек или одну ячейку по строкам через любой разделитель, нуждаюсь в дописании кода, который мог бы делить двумерный массив например: захватывать два столбца и производить деление по строкам как в скриншоте
| Код |
|---|
Sub jjj()
Dim cl As Range, rng As Range, rngTmp As Range
Dim strDelim$, strTmp$
Dim Arr() As String
Dim i&, n&, j&, k&
strDelim = InputBox("Введите символ-разделитель")
If strDelim = "перенос" Then strDelim = Chr(10)
If strDelim = "" Then End
If TypeName(Selection) = "Range" Then
Set rng = Selection
n = rng.Rows.Count
For i = n To 1 Step -1
With rng(i, 1)
strTmp = .Value & strDelim
Arr = Split(strTmp, strDelim)
j = UBound(Arr, 1) - 1
If j > 0 Then
.Offset(1).Resize(j).EntireRow.Insert Shift:=xlDown ', CopyOrigin:=xlFormatFromLeftOrAbove
Set rngTmp = .Resize(j + 1)
For k = 0 To j
rngTmp(k + 1, 1).Value = Arr(k)
Next k
End If
End With
Next i |
