セルに特定の名前がある場合は、前の行のセルをコピーするためのコード

Question

Excelの式でセルの値をチェックし、Trueの場合は前のセルのデータをコピーしますそうでない場合、セルは空白のままです。

=IF(A2="Summary",B1,"") 

IはA、A1の範囲をチェックするVBAコードを作成したい：、A500を、それが要約に等しいならば、列B、C、D、Eの前の行にデータをコピーしますF、G、H、I、J、K、L

したがって、いくつかの列には既に既存のデータがあります。

Answer 1

Sub CopyDataFromPreviosRow() 
    Application.ScreenUpdating = False 
    Dim c As Range 

    For Each c In Range("A2:A500") 
     If c.Value = c.Offset(-1).Value Then 
      c.EntireRow.Columns("B:L").Value = c.Offset(-1).EntireRow.Columns("B:L").Value 
     End If 
    Next 
    Application.ScreenUpdating = True 
End Sub