vba代码复制前一行的单元格,如果一个单元格具有特定名称
问题描述:
我在Excel中有一个检查单元格值的公式,如果它是True,那么它将复制前一个单元格的数据,如果它不是,单元格将保持空白。vba代码复制前一行的单元格,如果一个单元格具有特定名称
=IF(A2="Summary",B1,"")
我希望创建VBA代码,将检查A,A1的范围:A500,并且如果它等于摘要然后该数据的前一行中从列复制B,C,d,E, F,G,H,I,J,K,L
所以有些列已经有了现有的数据。
答
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
那么,如果要触发这个事件中,我需要找到这个词总结,因为它经过A列范围对不起,我真的不擅长编码和刚开始它 –
读了'C'代表在“A2:A500”中迭代的当前单元格。 '如果c.Value =“摘要”,那么' – 2016-09-22 15:39:53
谢谢,这很好用......我最好开始阅读。 –