【VBA】オートフィルタで抽出した内容を隣のセルにコピーする方法

A列 　　B列
1　　　　　　 都道府県
2　　　　　　 神奈川
3　　　　　　 神奈川
4　　　　　　 埼玉
5　　　　　　 東京
6　　　　　　 千葉
7　　　　　　 東京
8　　　　　　 神奈川
9　　　　　　 東京

１行目にオートフィルタを使用してＢ列から東京だけを抽出。


A列 　　B列
1　　　　　　 都道府県
5　　　　　　 東京
7　　　　　　 東京
9　　　　　　 東京

Ｂ列の内容を隣のセルにコピー。


A列 　　B列
1　　　　　　 都道府県
5東京　　　　　　 東京
7東京　　　　　　 東京
9東京　　　　　　 東京

このような処理をVBAで行うにはどうしたらいいでしょうか？
可視セルを他シートに貼り付ける処理は分かりましたが、同シート内での処理が分かりません。
宜しくお願いします。

No.2 ベストアンサー 回答者： n-jun 回答日時： 2009/04/09 22:09

n-junです。

＞＞下記のようにＣ列のデータをＢ列だけにコピーするにはどうしたらいいでしょうか？
＞With Range("B2", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)

With Range("C2", Cells(Rows.Count, 3).End(xlUp)).SpecialCells(xlCellTypeVisible)
この１行を差し替えて下さい。

この回答へのお礼

回答ありがとうございます。
Rows.Countに対しての知識が不足しておりました。
無事に解決しました。

お礼日時：2009/04/09 22:25

No.1 回答者： n-jun 回答日時： 2009/04/09 21:31

フィルタがかかっている状態で、

With Range("B2", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)
.Offset(, -1).Value = .Value
End With

とか？

この回答への補足

回答ありがとうございます。
ご教授頂いた内容で解決しました。

度々の質問で申し訳ございません。
下記のようにＣ列のデータをＢ列だけにコピーするにはどうしたらいいでしょうか？

A列 　　B列 　　C列
1　　　　　　 　　　 都道府県
5　　　　　　 　　　 東京
7　　　　　　 　　　 東京
9　　　　　　 　　　 東京

補足日時：2009/04/09 21:48