vba - Excel VBA - 从一张纸复制到另一张纸> 仅复制一行

Question

我的代码有问题。代码应根据工作表“hideMaster”B 列复制所有行，直到最后一行，但此宏仅复制前 5 行。

Sub DeleteFilterAndCopy()

Dim LASSSST As Long
Dim IP As Worksheet

Set IP = ThisWorkbook.Worksheets("Input")

LASSSST = IP.Cells(Rows.Count, "B").End(xlUp).Rows.Count

Sheets("MASTER").Cells.clearcontents
Sheets("hideMASTER").Range("A5:U" & LASSSST).Copy
Sheets("MASTER").Range("A1").PasteSpecial xlPasteValues

[...]

有人能找到这里的问题吗？

Answer 1

LASSSST = IP.Cells(Rows.Count, "B").End(xlUp).Rows.Count

这是行数

IP.Cells(Rows.Count, "B").End(xlUp)

这是 1，因为它只有一个单元格。这导致它复制 "A5:U1"

使用

IP.Cells(IP.Rows.Count, "B").End(xlUp).Row

请注意，我按照 Shai Rado 的建议添加了 IP.Rows.Count 而不是 Rows.Count，但是每张纸上的行数都是相同的，因此不会没关系。不过，引用所有内容仍然是一个很好的做法。