我无法复制列中的所有数据。我只想复制不包含第一行（标题）的数据，并将其粘贴到另一张纸上。我的当前代码为我提供了部分结果，因为数据之间存在一些空白。
由于我是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
您的代码中只有小错误，请尝试以下操作：
Dim lastRowTD As Long
lastRowTD = wsRawT.Cells(Rows.Count, "AU").End(xlUp).Row
wsRawT.Range("AU2:AU" & lastRowTD).Copy
wsDetI.Range("A2").PasteSpecial xlPasteValues
说明：此代码检查工作A表列中的数据集的wsRawT大小。然后，它将所有内容从单元格复制A2到数据的最后一行。然后将所有值粘贴到A工作表的列中wsDetI。如果您不只需要这些值，也可以使用以下更简单的版本.Copy：
wsRawT.Range("AU2:AU" & lastRowTD).Copy wsDetI.Range("A2")
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句