タイプ表示セルにのみコピー/貼り付けするときのミスマッチ

Question

表示可能なセルにリストをコピーして貼り付けようとしています。なんらかの理由でタイプミスマッチエラーが発生しています。理由はわかりません。 3行目でエラーが発生したときにデバッグします。

Sub Copy_Filtered_Cells() 
    Set from = Sheets(Sheet2).Range("I16831:I20610") 
    Set too = Application.InputBox("J4:J16821", Type:=8) 
    For Each Cell In from 
     Cell.Copy 
     For Each thing In too 
      If thing.EntireRow.RowHeight > 0 Then 
       thing.PasteSpecial 
       Set too = thing.Offset(1).Resize(too.Rows.Count) 
       Exit For 
      End If 
     Next 
    Next 
End Sub 

Answer 1

ベストオプションを使用してください。モジュールの上部に明示的に表示されています。私はあなたが達成しようとしているものを推測しています。ここに刺し傷があります...

Option Explicit 

Sub Copy_Filtered_Cells() 
    Dim from As Excel.Range 
    Set from = Sheets("Sheet2").Range("I16831:I20610") 

    Dim too As Excel.Range 
    Set too = Sheets("Sheet2").Range("J4:J16821") 'Application.InputBox("J4:J16821", Type:=8) 


    Dim Cell As Excel.Range 
    For Each Cell In from 
     Cell.Copy 
     Dim thing As Excel.Range 
     For Each thing In too 
      If thing.EntireRow.RowHeight > 0 Then 
       thing.PasteSpecial 
       Set too = thing.Offset(1).Resize(too.Rows.Count) 
       Exit For 
      End If 
     Next 
    Next 
End Sub