从某一行粘贴

时间:2015-08-17 14:59:39

标签: vba excel-vba excel

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

1 个答案:

答案 0 :(得分:0)

这是造成问题的一行:

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

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

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