| |
74さん こんにちは
ぅう〜んん・・・ ちょっと解りにくい・・・
すみません。やりたい事はわかったんですが、やる意味が解りません
なので、私が設定します。
Aシートの1行目に照合させたいデータが、A1〜J１まで１０ヶ有ります。
BシートのA列にデータNo.が通し番号で振ってあり、 B列〜K列までデータが１０ヶ有ります。
Bシートデータの行数は１００前後で一定ではありません。
AシートのA1〜J１までのデータと、BシートのB列〜K列を比較して全てのデータが一致したときだけ、BシートA列の通しNo.と、B列〜K列までのデータを、Cシートに上から順番に転機します。
＊１．そして、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
'↑ 私の設定では １０ になるはず。
ShB_lr = Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Row
'↑ 私の設定では １００前後。
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 を全部消して使ってください。
Ps．
＞Aシートの1行目と完全フェッチする行がBシートになければ
完全フェッチ って？ なんかいやらしい言葉？（な〜んちゃって） ←久しぶり使った
コードの説明は、家についてから書きます。
|
|
Abebobo
- 08/5/29(木) 19:39 -
