| |
▼ｔｅｔｕ さん：
>統合Sheetの同じ値の行とﾛｯﾄNOの次の列(空白の部分)にセルをActiveさせ貼り付けたい
>のですが，どのようにｺｰﾄﾞにしたらいいかわからず、先にすすめないです
>実際,途中のためここまでの状態も、この構文でいいのも不安ですし
>検索が終わった後次のセルを又同じ用に検索させたいのですが、これもわからず
>こまっています。大変申し訳ありませんがその点踏まえ再度わかる方おしえてください
ForNextのLoopは解っていらっしゃるようですね。
２つの範囲を２重Loopにして１行づつ比較していくことでもできるのでは？
もしくは・・・
この内容であれば、MatchよりFindのほうが使い勝手が良いと思います。
他の掲示板で回答してものが残ってました。参考までに載せときます。
過去ログにもありそうですけど。
Sheet 1枚目のA1,B1にデータを入力し
A1の値で、2枚目A列を検索してあれば上書き、なければ最終行に追加。
Findの引数などは、テキトーです。
Sub Test_KAKIKOMI()
Dim Tgt_R As Range
Dim SakiRng As Range
Set Tgt_R = Worksheets(1).Range("A1")
With Worksheets(2)
Set SakiRng = .Range("A:A").Find(Tgt_R)
If SakiRng Is Nothing Then
MsgBox "該当なしの為、最終行＋１をセット"
Set SakiRng = .Range("A" & Rows.Count).End(xlUp).Offset(1)
Else
MsgBox "上書き"
End If
End With
'A1,B1を書き込み
SakiRng.Resize(, 2).Value = Tgt_R.Resize(, 2).Value
Set Tgt_R = Nothing
Set SakiRng = Nothing
End Sub
|
|
ハチ
- 07/9/12(水) 9:22 -
