|
こんにちは。かみちゃん です。
>この表中の項目2が「未対応」のものである行を取り出したいのですが、
>その際、IDと名前と更新日だけを別のシートにコピーして貼り付けしたいのです。
オートフィルタを使って、可視セルだけコピーすればいいのではないでしょうか?
以下のマクロでは、いったん行全体を別シートにコピーして、残したいセル以外を消去しています。
Sub Test()
'現在のシート名と、抽出結果シート名の変数の宣言
Dim ActiveSheetName, ResultSheetName As String
'現在のシート名の取得
ActiveSheetName = ActiveSheet.Name
'抽出結果シート名の指定
ResultSheetName = "Sheet2"
'5列目(E列)が「未対応」のものをオートフィルタで表示する。
Selection.AutoFilter Field:=5, Criteria1:="未対応", Operator:=xlAnd
'抽出結果シートへコピーする。
'可視セルのみ
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets(ResultSheetName).Select
ActiveSheet.Paste
'A列とB列および見出し行以外は値をクリアする。
Range("C2:IV65536").ClearContents
Range("A1").Select
'オートフィルタの解除
Sheets(ActiveSheetName).Select
Range("A1").Select
Selection.AutoFilter
Application.CutCopyMode = False
'抽出結果シートを表示
Sheets(ResultSheetName).Select
'抽出結果シートへコピー完了
End Sub
|
|