Excel VBA質問箱 IV

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

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


26047 / 76732 ←次へ | 前へ→

【56021】Re:行単位の比較方法
発言  Abebobo  - 08/5/29(木) 19:39 -

引用なし
パスワード
   74さん こんにちは
ぅう〜んん・・・ ちょっと解りにくい・・・
すみません。やりたい事はわかったんですが、やる意味が解りません
なので、私が設定します。

Aシートの1行目に照合させたいデータが、A1〜J1まで10ヶ有ります。
BシートのA列にデータNo.が通し番号で振ってあり、 B列〜K列までデータが10ヶ有ります。
Bシートデータの行数は100前後で一定ではありません。

AシートのA1〜J1までのデータと、BシートのB列〜K列を比較して全てのデータが一致したときだけ、BシートA列の通しNo.と、B列〜K列までのデータを、Cシートに上から順番に転機します。
*1.そして、Aシートのデータと、全て一致する、Bシートの 通しNo. を検出します。

Sub hikaku()
Dim myRB  As Long
Dim ShB_lr As Long
Dim ShC_lr As Long
Dim i   As Long
Dim ii   As Long
 
myRB = Worksheets("A").Cells(1, Columns.Count).End(xlToLeft).Column
'↑ 私の設定では 10 になるはず。
ShB_lr = Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Row
'↑ 私の設定では 100前後。
ShC_lr = Worksheets("C").Cells(Rows.Count, 1).End(xlUp).Row

For ii = 1 To ShB_lr
  For i = 1 To myRB
    If Worksheets("A").Cells(1, i).Value <> Worksheets("B").Cells(ii, i + 1).Value Then GoTo Bobo
  Next i
  Worksheets("C").Cells(ShC_lr, 1).Resize(, myRB + 1).Value = _
            Worksheets("B").Cells(ii, 1).Resize(, myRB + 1).Value
  ShC_lr = ShC_lr + 1

Bobo:
Next ii
End Sub

注1.が不必要でシートレイアウトがそうじゃなかったら、コードの中の +1 を全部消して使ってください。

Ps.
>Aシートの1行目と完全フェッチする行がBシートになければ
完全フェッチ って? なんかいやらしい言葉?(な〜んちゃって) ←久しぶり使った

コードの説明は、家についてから書きます。

5 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 お礼

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