Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13819 / 76734

←次へ　｜　前へ→


	【68417】Re:検索値を指定して一致した行をコピー

ののか - 11/3/3(木) 15:30 -


	引用なし

	パスワード

▼kanabun さん：
▼neptune さん:

ありがとうございました。
処理できましたが、コピーと質問に書きましたが移動に変更したいです。
元のシートに残らないようにＶＢＡを変更してほしいのですが・・・
可能でしょうか？
わがまま言って申しわけありませんが宜しくお願いします。

Sub AAの抽出転記_AutoFilter()
dim AAsheet as worksheet
dim ws as worksheet

set AAsheet = ActiveWorkbook.Worksheets("AA")'転記先シート
For Each ws in ActiveWorkbook.Worksheets
　　if isnumeric(ws.Name) then
　　　 with ws.cells(1).currentregion
　　　　　.Autofilter 3, "AA"
　　　　　if .Columns(1).SpecialCells(xlVisible).Count>1 then
　　　　　　 .Copy AAsheet.cells(rows.count,1).end(xlUp).offset(1)
　　　　　end if
　　　　　.Autofilter
　　　 end with
　　end if
next
End Sub

2 hits

▼

【68407】検索値を指定して一致した行をコピー ののか 11/3/3(木) 10:50