0

フィルタリング後、表示されている空でないセル (テキストを含むセル) をすべてコピーしたいと考えています。何らかの理由で、現在のコードが機能していません。どんな助けでも大歓迎です。ありがとう!

  Sheets("Sheet1").Range("S2:S5000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy
4

1 に答える 1

3

私はあなたのコードを試していないことを完全に認めていますが、次のことも試すことができます

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
于 2013-09-05T02:25:03.210 に答える