макрос для вставки пустых строк на основе значения столбца

Question

Я безуспешно пытаюсь создать макрос, чтобы вставить пустую строку на основе значения ячейки.

У меня есть объемные данные, в которых одна колонка имеет разные числа. Основываясь на значении столбца, мне нужно вставить в него пустую строку.

Answer 1

Если я правильно вас понимаю, это должно делать то, что вы хотите.
Просто измените «A: A» на диапазон, в котором работаете, и «cell.Value = 1 Then», чтобы вы могли найти ячейку, в которую хотите добавить пустую строку.

Dim i As Range 
Dim cell As Range 
Set i = Range("A:A") 
For Each cell In i.Cells 
If cell.Value = 1 Then 
cell.Offset(1).EntireRow.Insert 
End If 
Next 

Answer 2

Ниже приведен пример, если вы хотите, чтобы вставить пустую строку, основанную на резком изменении значения в столбце (в данном случае колонке «C»):

Dim lRow As Long 
For lRow = Cells(Cells.Rows.Count, "C").End(xlUp).Row To 3 Step -1 
    If Cells(lRow, "C") <> Cells(lRow - 1, "C") Then Rows(lRow).EntireRow.Insert 
Next lRow 

Вы может изменить Cells(lRow - 1, "C") на любое значение, которое вы хотите активировать вставку строки, и, конечно, в какой столбец это применяется.