Excel VBA質問箱 IV

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

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


14592 / 76734 ←次へ | 前へ→

【67631】Re:三列が合致していないセルにチェック
回答  UO3  - 10/12/19(日) 23:33 -

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

hirofumiさんからYoshimさんのオリジナルコードの骨格を踏まえたコードがでていますが
hirofumiさんも指摘しておられるように処理効率の面で、この構成は課題があるのかもしれません。

で、ちょっと思いついた案です。
同じ場所にフィルターをかけるのは、あまりやったことがなく、いろいろ落とし穴があるかもしれませんが。

Sheet1とSheet2の1行目のタイトルが同じであるとの前提です。

Sub SampleX()
 Dim mRow1 As Long, mRow2 As Long
 
 Application.ScreenUpdating = False
 
 With Sheets("Sheet2")
  mRow2 = .Range("A" & .Rows.Count).End(xlUp).Row
 End With
 
 With Sheets("Sheet1")
  mRow1 = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range("A2:A" & mRow1).Interior.ColorIndex = 34
  .Range("A1:C" & mRow1).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("Sheet2").Range("A1:C" & mRow2), Unique:=False
  .Range("A2").Resize(mRow1 - 1).Interior.ColorIndex = xlNone
  .ShowAllData
 End With
 
 Application.ScreenUpdating = True
 
End Sub

0 hits

【67477】三列が合致していないセルにチェック Yoshim 10/12/8(水) 16:09 質問
【67478】Re:三列が合致していないセルにチェック Jaka 10/12/8(水) 16:20 発言
【67479】Re:三列が合致していないセルにチェック Hirofumi 10/12/8(水) 17:47 回答
【67515】Re:三列が合致していないセルにチェック Yoshim 10/12/9(木) 21:41 お礼
【67621】Re:三列が合致していないセルにチェック Yoshim 10/12/18(土) 22:27 質問
【67626】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 9:05 回答
【67627】Re:三列が合致していないセルにチェック Hirofumi 10/12/19(日) 9:10 回答
【67631】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 23:33 回答
【67643】Re:三列が合致していないセルにチェック Yoshim 10/12/20(月) 22:18 お礼

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