Excel VBA質問箱 IV

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

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


25964 / 76732 ←次へ | 前へ→

【56105】Re:行単位の比較方法
発言  Abebobo  - 08/6/2(月) 11:01 -

引用なし
パスワード
   74 さん n さん、こんにちは

Join 初めて使いました。
50行程度のサンプルでは、速さの違いは実感できませんでしたが。
Loopが少ない分、メンテの時に良いのか?

Sub hikaku2()
Dim ShA_lC As Long   'Aシート最終列
Dim ShA_lr As Long   'Aシート最終行
Dim ShB_lr As Long   'Bシート最終行
Dim ShC_lr As Long   'Cシート最終行
Dim i As Long, ii As Long
Dim v As Variant, w As Variant
Dim J1 As String, J2 As String
 
ShA_lC = Worksheets("A").Cells(1, Columns.Count).End(xlToLeft).Column
ShA_lr = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row
ShB_lr = Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Row
ShC_lr = Worksheets("C").Cells(Rows.Count, 1).End(xlUp).Row

With Worksheets("A")
  For i = 1 To ShA_lr
   v = .Cells(i, 1).Resize(, ShA_lC).Value  '比較する行を配列に収納
    For ii = 1 To ShB_lr
      w = Worksheets("B").Cells(ii, 1).Resize(, ShA_lC).Value  '比較される行を配列に収納
      J1 = Join(Application.Index(v, 1, 0))  'ローカルウインドウで確認用
      J2 = Join(Application.Index(w, 1, 0))
        If J1 = J2 Then
          Worksheets("C").Cells(ShC_lr, 1).Resize(, ShA_lC).Value = _
                      .Cells(i, 1).Resize(, ShA_lC).Value
          ShC_lr = ShC_lr + 1
          GoTo A
        End If
    Next ii
A:
  Next i
End With

* nさん いつもありがとうございます。

12 hits

【55989】行単位の比較方法 74 08/5/28(水) 20:41 質問
【55991】Re:行単位の比較方法 74 08/5/28(水) 21:20 発言
【56014】Re:行単位の比較方法 Abebobo 08/5/29(木) 17:18 発言
【56018】Re:行単位の比較方法 74 08/5/29(木) 18:11 回答
【56021】Re:行単位の比較方法 Abebobo 08/5/29(木) 19:39 発言
【56024】Re:行単位の比較方法 74 08/5/29(木) 20:34 お礼
【56027】Re:行単位の比較方法 Abebobo 08/5/29(木) 21:30 発言
【56046】Re:行単位の比較方法 74 08/5/30(金) 13:16 お礼
【56048】Re:行単位の比較方法 Abebobo 08/5/30(金) 13:45 発言
【56101】Re:行単位の比較方法 n 08/6/2(月) 0:37 発言
【56103】Re:行単位の比較方法 74 08/6/2(月) 9:18 お礼
【56105】Re:行単位の比較方法 Abebobo 08/6/2(月) 11:01 発言
【56150】Re:行単位の比較方法 n 08/6/5(木) 14:37 発言
【56154】Re:行単位の比較方法 Abebobo 08/6/5(木) 20:20 発言
【56108】Re:行単位の比較方法 Yuki 08/6/2(月) 11:22 発言
【56109】Re:行単位の比較方法 kanabun 08/6/2(月) 19:06 発言
【56113】Re:行単位の比較方法 74 08/6/3(火) 10:36 お礼
【56115】Re:行単位の比較方法 kanabun 08/6/3(火) 12:43 発言
【56139】Re:行単位の比較方法 74 08/6/4(水) 12:02 お礼

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