无法将列中的所有数据复制到另一个工作表 - excel VBA

Question

我无法复制列中的所有数据。 我只想复制不包括第一行（标题）的数据，并将其粘贴到另一张纸上。 我当前的代码给了我一个部分结果，因为数据之间有一些空白。

请帮助我，因为我是 VBA 的新手。 谢谢！

以下是我尝试过的两个代码。 一种是通过xldown方法，另一种是lastrow 。 我发现使用lastrow ，我什至无法复制任何东西。

这是xldown方法，它给了我部分数据（ wsRawT和wsDetI是我定义的工作表）：

wsRawT.Select
    range("AI1").Select
    ActiveCell.Offset(1, 0).range("A1").Select
    range(Selection, Selection.End(xlDown)).Select
    Selection.copy

wsDetI.Select
    range("B1").Select
    ActiveCell.Offset(1, -1).range("B1").Select
    ActiveSheet.Paste

这是lastrow方法，它甚至不允许我复制任何东西：

    Dim lastRowTD As Long
    lastRowTD = wsRawT.Cells(Rows.Count, "A").End(xlUp).Row

    wsRawT.range("AU2" & lastRowRD).copy
    wsDetI.range("A2").PasteSpecial xlPasteValues
    wsDetS.range("A2").PasteSpecial xlPasteValues

Answer 1

您的代码中只有小错误，请尝试以下操作：

Dim lastRowTD As Long
lastRowTD = wsRawT.Cells(Rows.Count, "AU").End(xlUp).Row

wsRawT.Range("AU2:AU" & lastRowTD).Copy
wsDetI.Range("A2").PasteSpecial xlPasteValues

解释一下：此代码检查工作表wsRawT的A列中的数据集有多大。 然后它将单元格A2中的所有内容复制到包含数据的最后一行。 然后将所有值粘贴到工作表wsDetI A列。 如果您并不特别需要这些值，您还可以使用这个更简单的.Copy版本：

wsRawT.Range("AU2:AU" & lastRowTD).Copy wsDetI.Range("A2")