|
列Aには、1〜8までの数字がランダムに入っています。
列Aの中で、1が入力されている行に、1、2行目をコピーして貼り付けたいのです。
以下のように作ってみたのですが、1番はじめにfindで見つかった1の下に、1,2行目が数限りなく貼り付けられてしまいます。
どうしたらよいでしょう?
Msgbox で、c.Addressを確認すると、$A$7などのaddressを参照しています。
$が気にはなるのですが、よくわかりません。
よろしくお願いします。
With Columns(1)
Set c = .Find(1, LookIn:=xlValues, SearchDirection:=xlPrevious)
If Not c Is Nothing Then
cc = c.Row
firstaddress = c.Address
Do
Rows("1:2").Select
Selection.Copy
Rows(cc).Select
Selection.Insert Shift:=xlDown
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
|
|