フィルター後、可視セル一部データ参照 VBA
いつもお世話になっております。
Excel2003を使用しております。
フィルターを掛けたあと、範囲を別シートにコピーする
プログラムを組みました。
その際に、一部分だけ持っておきたいのですが
どのようにすれば良いでしょうか?
たとえば、フィルター後の内容が
名前,テスト1,テスト2,テスト3
A,テスト1,テスト2,テスト3
B,テスト1,テスト2,テスト3
とあったとして、テスト2の内容だけをコピーし
Sheet2のA1にコピーすることはできるのでしょうか?
現段階では、
AとBを範囲指定してコピー
テスト3を範囲指定してコピー
という作業をしております。
--------------------
.Range("F2:F" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select '可視セルの選択
Selection.Copy '可視セルコピー
Worksheets("製品別グラフ").Range("A" & j).PasteSpecial 'A列に貼り付け!
Excel.Application.CutCopyMode = False 'クリップボードの内容クリア
----------------------------------
このように行っているため、
全範囲選択してコピー…ということはやりたいことと違うため
どうしたらいいのか分からず困っています。
可視セルの指定行(A2:?) の一部の可視セルを取り出したいのです。
何か良いサイト、方法がありましたら教えてください。
よろしくお願い致します。