Excel vbaマクロ：列情報を別のブックにコピー

Question

このマクロを使用して、ブック「x」からブック「y」に3列のデータをコピーし、非表示の行をコピーしません。

Sub GetDataDemo() 
Const FileName As String = "EHS.xlsx" 
Const SheetName As String = "PO" 
FilePath = "C:\Users\DD\Desktop\" 
Dim wb As Workbook 
Dim this As Worksheet 
Dim i As Long, ii As Long 

Application.ScreenUpdating = False 

If IsEmpty(Dir(FilePath & FileName)) Then 

    MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist" 
Else 

    Set this = ActiveSheet 

    Set wb = Workbooks.Open(FilePath & FileName) 

    With wb.Worksheets(SheetName).Range("Y:AA") 

     ii = 3 
     For i = 3 To 500 

      If Not .Rows(i).Hidden Then 

       .Cells(i).Copy 
       this.Range("P:R").Cells(ii).Paste 
       ii = ii + 1 
      End If 
     Next i 
    End With 
End If 

ActiveWindow.ScreenUpdating = True 
End Sub 

私はラインの近くにオートメーションエラー（エラー440）を得続ける：事前にあなたの助けを

this.Range("P:R").Cells(ii).Paste 

感謝を！

Answer 1

&をコピーして、目に見えるセル/行を一括して貼り付けることができます。

With wb.Worksheets(SheetName).Range("Y3:AA500") 
    on error resume next 
    .SpecialCells(xlcelltypevisible).Copy this.Range("P3") 
    on error goto 0 
End With 

.Pasteは、RangeまたはCellsではなく、Worksheetのメンバーです。

は予約名です。予約済みの名前をvarsとして再利用することは「ベストプラクティス」とはみなされません。