Скопируйте строку и вставьте ниже, когда значение ячейки найдено в столбце

Question

У меня довольно ограниченное знание VBA, поэтому, надеюсь, я могу объяснить, что я пытаюсь сделать! Я пытаюсь скопировать строку, если она имеет что-нибудь> 0 в столбце J.

Затем я хочу вставить эту скопированную строку в новую строку ниже, скопированную ячейку.

Я хотел бы, чтобы это пробило весь рабочий лист, чтобы каждая строка со значением в J повторялась, данные на листе изменяются по размеру, всегда будет значение в столбце B до конца данных. .

Вот моя неудачная попытка далеко ..

Sub Copy_Cells() 
    For Each Objcell In ActiveSheet.Columns(10).Cells 
    Do 
    If Objcell.Value > 0 Then 
     Objcell.EntireRow.Select 
     Selection.Copy 
     Selection.Insert Shift:=xlDown 
     Exit Sub 
     Loop Until IsEmpty(ActiveSheet.Columns(2).Cells) 
    End If 
Next Objcell 

End Sub 

Answer 1

Я думаю, что это то, что вы пытаетесь сделать.

Sub Copy_Cells() 
    botRow = 100 
    For i = botRow To 1 Step -1 
     If Cells(i, 10).Value > 0 Then 
     Rows(i).EntireRow.Copy 
     Rows(i + 1).Insert Shift:=xlDown 
     End If 
    Next i 
End Sub 

Вы должны были бы установить нижний ряд или вы можете реализовать подсчет использованных строк и т.д.

Answer 2

Sub Copy_Cells() 
    Dim totalRow as Integer 
    totalRow = Activesheet.Cells(1,2).End(xlDown).Row 'Count total row from B column 
    For Each Objcell In Activesheet.Range("J1:J" & totalRow) 
     If Objcell.Value > 0 Then 
      Objcell.EntireRow.Select 
      Selection.Copy 
      Selection.Insert Shift:=xlDown 
     End If 
    Next Objcell 
End Sub