我想从第6行粘贴。如果只有每行的第一个单元格的值是X,我应该将表格中的行导入到另一个工作表中。所以,我编写了这段代码,但是它会粘贴它们。的表单。我希望它从第6行粘贴。有人可以告诉我该怎么做吗?
lngRow = wksDest.Cells(wksDest.Rows.Count, 2).End(xlUp).Row + 1
For i = 2 To wksSrc.Range("A" & wksSrc.Rows.Count).End(xlUp).Row
If wksSrc.Cells(i, 1) = "X" Then
wksSrc.Range(wksSrc.Cells(i, 2), wksSrc.Cells(i, 20)).Copy
wksDest.Range("B" & wksDest.Rows.Count).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
lngRow = lngRow + 1
End If
Next i
答案 0 :(得分:0)
这是造成问题的一行:
wksDest.Range("B" & wksDest.Rows.Count).PasteSpecial xlPasteValuesAndNumberFormats
部分wksDest.Rows.Count
始终返回工作表中的行数。看看你的代码看起来像`lngRow'是你想要使用的行号。所以试试:
wksDest.Range("B" & lngRow).PasteSpecial xlPasteValuesAndNumberFormats