我想知道是否有人可以帮助我:
如果给定的单元格范围与特定的公式结果匹配,我正在使用下面的代码(我得到了一些帮助)将数据行从一张表复制到另一张表。
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”开始。
我只是想知道是否有人可以看看这个,让我知道我哪里出错了。
非常感谢和亲切的问候