Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
69760 / 76732 ←次へ　｜　前へ→
【11487】Re:パフォーマンス向上について
回答  Kein  - 04/3/9(火) 19:57 -
引用なし
パスワード
   Match関数の数式を、Sheet1の作業列に埋めこんだらどうですか ?
例えば A1〜A列最終入力行までを調べるなら

With Sheets("Sheet1")
　 .Range("A1", .Range("A65536").End(xlUp)).Offset(, 25) _
　 .Formula = "=MATCH($A1,Sheet2!$A:$A,0)"
End With

で、Z列に結果が出るので

On Error GoTo ErLine
Set MyR = Range("Z:Z").SpecialCells(3, xlErrors)
On Error GoTo 0
For Each C In MyR
　 MsgBox C.Offset(, -25).Value & vbLf & _
　 "はシート2に存在しません"
Next
Set MyR = Nothing: Exit Sub
ErLine:
MsgBox "全てのデータがシート2に存在します", 64
End Sub

のように判定すれば良さそうですが。
0 hits
▼ 【11484】パフォーマンス向上について ふくいんちょー 04/3/9(火) 18:47 質問
【11487】Re:パフォーマンス向上について Kein 04/3/9(火) 19:57 回答≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
69760 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free