Excel VBA - 1つのシートから別のシートにコピーする> 1行のみをコピーする

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 

これはそれだけで一つのセルなので、1である

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

の行数です。しかし、これは、行の数が、それは問題ではないように、すべてのシートに同じである、シャイラドーが示唆したように、それは使用して、"A5:U1"

私はIP.Rows.Count代わりのRows.Countを含ま

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

ノートをコピーしていました。しかし、すべてを参照するのはまだ良い習慣です。

Answer 2

編集：arcadeprecinctがエラーを発見しました。

代わりにこれを試してみてください：

Sub DeleteFilterAndCopy() 

Dim LASSSST As Long 
Dim IP As Worksheet 

Set IP = ThisWorkbook.Worksheets("Input") 

Sheets("MASTER").Cells.clearcontents 
With ThisWorkbook.Worksheets("hideMASTER") 
    .Range("A5", .Cells(Rows.Count,21).End(xlUp)).Copy Destination:= ThisWorkbook.Worksheets("MASTER").Range("A1") 
End with