VBA粘贴范围
问题描述:
我不知道是否有人也许能够帮我请:VBA粘贴范围
我使用下面的代码(我有一些帮助),如果从一个工作表复制数据行另一一个给定的细胞范围符合一个公式结果。
Sub test()
Set Sht = Sheets("Sheet 1")
rw = 5
Do While Len(Sht.Cells(rw, "A").Value) > 0
If Sht.Cells(rw, "B").Value > 0 Then
ResourcesAllUsed = True
For colm = 3 To 25 Step 2
If (Sht.Cells(rw, colm + 1).Value < (Sht.Cells(rw, colm).Value * 0.85)) Or (Sht.Cells(rw, colm + 1 + 25).Value < (Sht.Cells(rw, colm + 25).Value * 0.85)) Then
ResourcesAllUsed = False
Exit For
End If
Next colm
If Not ResourcesAllUsed Then
With Sheets("Sheet 2")
NextRw = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Cells(NextRw, "A").Resize(, 26).Value = Sht.Cells(rw, "A").Resize(, 26).Value
.Cells(NextRw, "AD").Value = Sht.Cells(rw, "AD").Value
End With
End If
End If
rw = rw + 1
Loop
End Sub
复制工作正常,但我开始粘贴的行有点麻烦。
我想从“A5”开始粘贴,但由于某种原因,粘贴从“A2”开始。
我只是想知道是否有人能够看到这个请让我知道我要去哪里错了。
许多的感谢和亲切的问候
答
的NextRow
变量设置为A2通过循环,这意味着唯一的数据是A1(或没有什么在A1要么)的第一次。迫使它在A5开始,你可以改变行:
NextRw = Application.WorksheetFunction.Max(.Cells(.Rows.Count, "A").End(xlUp).Row + 1,5)
这意味着你(1)至4
嗨@Doug克兰西2有行空白单元格,谢谢你非常花时间回复我的帖子。您的解决方案很好。 所有最好的和亲切的问候 – IRHM 2013-02-17 15:57:45