Question

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

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

我想创建一个VBA代码，用于检查A，A1：A500的范围，如果它等于Summary，则复制上一行中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

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

1 个答案: