Я пытаюсь переместить один столбец в несколько строк.Разрыв строки должен основываться на строке, следующей за ячейкой, содержащей «Связаться с покупателем».Ниже приведен пример данных:
jeneice07 13 мая 2019 года
5 из 5 звезд
Сообщить об этом обзоре
Связаться с покупателем
Древо Жизни Камень Ожерелье с проволочной обмоткой Кристалл Подвеска Камень Женские украшения Природа Ювелирные изделия Подарки для ее зеленого камня Дизайн медного дерева
Количество строк в каждом обзоре является переменным, или решить эту проблему будет несложно,Мне нужен код, который будет искать «Связаться с покупателем», затем перейти в одну дополнительную ячейку и транспонировать, а затем перенести следующий обзор на другую строку вниз.Я могу изменить ячейки, содержащие контактный покупатель, на любое значение, которое может потребоваться, чтобы сделать это проще, чем на строку.
Я много искал решение этой проблемы.У меня более 100000 строк данных, поэтому делать это вручную нельзя.Я попытался изменить приведенный ниже код, но он не работает, потому что я не могу получить переменную stepVal.
Public Sub TransposePaste()
'Value we want to step by....
Dim stepVal As Long
stepVal = "
'Declare start row variable (-1)
Dim row As Long
row = 0
'Declare the column the data is coming from
Dim col As Long
col = 1
'Declare and set worksheet
Dim ws As Worksheet
Set ws = Sheet1
'end row of the data
Dim endRow As Long
endRow = ws.Cells(ws.Rows.Count, col).End(xlUp).row
'cycle to end of data end of data...
For i = 1 To endRow Step stepVal
'increment row each time
row = row + 1
'cycle through the columns outputting the data
For j = 1 To stepVal
Sheet1.Cells(row, j).Value = Sheet1.Cells(i + j - 1, col).Value
Next j
Next i
End Sub
Ниже приведен пример выводаиз первых двух записей входных данных, и я добавил еще один элемент, в котором рецензент добавил фотографию, в результате чего обзор имеет длину семь ячеек вместо пяти:
