特定の列に値が入っていたら、一行追加して特定列をコピーするVBAスクリプト

insert_row_and_copy_value.vbs

Sub insertRowAndCopyValue()
'
' insertRowAndCopyValue
' T列に値が入っていたら下に行を追加して、その行に各種値をコピーする（一行目は除く）
'

'
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Range("T" & Rows.Count).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        If Range("T" & i).Value <> "" Then
            Rows(i + 1).Insert Shift:=xlDown
            Range("J" & i + 1).Value = Range("T" & i).Value
            Range("F" & i + 1).Value = Range("F" & i).Value
            Range("W" & i + 1).Value = Range("T" & i).Value
            Range("L" & i + 1).Value = 0
            Range("AC" & i + 1).Value = 5
        End If
    Next i
End Sub