Excel VBA質問箱 IV

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

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


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

12723 / 76734

←次へ　｜　前へ→


	【69526】別シートの項目を削除するには？

gin - 11/7/28(木) 13:11 -


	引用なし

	パスワード

いつもお世話になります。
中々初心者レベルから上達しませんので何方か教えて下さいませ。
sheet(1)のA列に
1.a
2.c
3.f
4.g
の様にランダムな項目が有　項目数も変わります。
（実際は項目は70以上あります）
sheet(2)のA列に
1.a
2.b
3.d
4.e
5.f
↓
26.ｚ
の様に項目が全てあります。
（実際には3000以上の項目があります）
このsheet(2)のA列の項目からsheet(1)の項目行を削除する場合
私に考え付くのは
Sub test()
　　Dim vl As String
　　Worksheets(1).Select
　　Range("A1").Select
　　vl = ActiveCell.Value
　　Do Until vl = ""
　　　　Sheets(2).Select
　　　　Range("A1").Select
　　　　Do Until ActiveCell.Value = ""
　　　　　　If ActiveCell.Value = vl Then
　　　　　　　　ActiveCell.EntireRow.Delete
　　　　　　Else
　　　　　　　　ActiveCell.Offset(1).Select
　　　　　　End If
　　　　Loop
　　　　Sheets(1).Select
　　　　ActiveCell.Offset(1).Select
　　　　vl = ActiveCell.Value
　　Loop
End Sub
の様に書いています。
しかし、何度もシートを開いてマクロを実行する為
目まぐるしいですし時間もかかります。
もっとスマートな方法をご教授下さい。
宜しくお願いします。

4 hits

▼

【69526】別シートの項目を削除するには？ gin 11/7/28(木) 13:11

≪