我的宏的目标太简单,只复制其中包含值1的任何行的单元格,并将相同的值插入右上方的另一行中。唯一需要注意的是我在列B & C中也有值,所以我希望复制和插入这些值。我的宏是低于Excel VBA插入复制的单元格语法
我已经认识到,问题是优秀的是采取列AR相对于范围AR,但我有点麻烦绕过这一点,因为我不能想到命名我的R变量另一种方式绕过这个问题。
非常感谢您的帮助!
Sub BlankLine()
Dim Col As Variant
Dim BlankRows As Long
Dim LastRow As Long
Dim R As Long
Dim StartRow As Long
Col = "A"
StartRow = 1
BlankRows = 1
LastRow = Cells(Rows.Count, Col).End(xlUp).Row
Application.ScreenUpdating = False
With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) = "1" Then
.Range("AR:CR").Copy
Selection.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True
End Sub
你是什么意思的范围AR? AR是excel中列的定义。 –
你是对的,我对此感到抱歉。我现在有点心慌意乱,并且意识到我写的东西是愚蠢的。 Danesjai虽然解决了它。他的代码拷贝每一行a中有一个1的行,并将其插入到正上方的新行中(限制复制的行以仅包含具有实际值的单元格) –