Question

我想从第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

Answer 1

这是造成问题的一行：

wksDest.Range("B" & wksDest.Rows.Count).PasteSpecial xlPasteValuesAndNumberFormats

部分wksDest.Rows.Count始终返回工作表中的行数。看看你的代码看起来像`lngRow'是你想要使用的行号。所以试试：

wksDest.Range("B" & lngRow).PasteSpecial xlPasteValuesAndNumberFormats

从某一行粘贴

1 个答案: