Excel VBA質問箱 IV

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

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


13819 / 76734 ←次へ | 前へ→

【68417】Re:検索値を指定して一致した行をコピー
質問  ののか  - 11/3/3(木) 15:30 -

引用なし
パスワード
   ▼kanabun さん:
▼neptune さん:

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

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
4 hits

【68407】検索値を指定して一致した行をコピー ののか 11/3/3(木) 10:50 質問
【68409】Re:検索値を指定して一致した行をコピー kanabun 11/3/3(木) 11:45 発言
【68410】Re:検索値を指定して一致した行をコピー ののか 11/3/3(木) 12:48 発言
【68412】Re:検索値を指定して一致した行をコピー ののか 11/3/3(木) 13:42 質問
【68414】Re:検索値を指定して一致した行をコピー neptune 11/3/3(木) 14:43 発言
【68415】Re:検索値を指定して一致した行をコピー kanabun 11/3/3(木) 14:51 発言
【68417】Re:検索値を指定して一致した行をコピー ののか 11/3/3(木) 15:30 質問
【68418】Re:検索値を指定して一致した行をコピー kanabun 11/3/3(木) 16:38 発言
【68419】Re:検索値を指定して一致した行をコピー ののか 11/3/3(木) 17:28 お礼
【68416】Re:検索値を指定して一致した行をコピー kanabun 11/3/3(木) 15:17 発言

13819 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free