フィルタリング後、表示されている空でないセル (テキストを含むセル) をすべてコピーしたいと考えています。何らかの理由で、現在のコードが機能していません。どんな助けでも大歓迎です。ありがとう!
Sheets("Sheet1").Range("S2:S5000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy
私はあなたのコードを試していないことを完全に認めていますが、次のことも試すことができます
With Sheets("Sheet1").Range("S2:S5000")
Application.Intersect(.SpecialCells(xlCellTypeVisible), _
.SpecialCells(xlCellTypeConstants)).Copy
End With
コピーの理由が別の場所に貼り付けられることであるというオープンエンドの仮定を作成すると、次を使用して上記のコードを更新できます
With Sheets("Sheet1").Range("S2:S5000")
Application.Intersect(.SpecialCells(xlCellTypeVisible), _
.SpecialCells(xlCellTypeConstants)).Copy _
Destination:= Sheets("destSheet").Range("destRange")
End With