vba代码复制前一行的单元格，如果一个单元格具有特定名称

Question

我在Excel中有一个检查单元格值的公式，如果它是True，那么它将复制前一个单元格的数据，如果它不是，单元格将保持空白。

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

我希望创建VBA代码，将检查A，A1的范围：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