| |
列Ａには、１〜８までの数字がランダムに入っています。
列Ａの中で、１が入力されている行に、１、２行目をコピーして貼り付けたいのです。
以下のように作ってみたのですが、１番はじめにfindで見つかった１の下に、１，２行目が数限りなく貼り付けられてしまいます。
どうしたらよいでしょう？
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
|
|
猛虎襲来
- 03/12/5(金) 22:26 -
