ＶＢマクロ 色の付いたセルを含む行をコピーしたい。

質問

ＶＢ初心者です。
こちらでご指導頂きながら勉強しております。
今回もどなたかご教授お願い致します。

Ｇ列～Ｒ列内の色の付いたセルを含む行を
次のシートにコピーしたいのですが…
マクロを組んで実行したいと思っております。

どなたかアドバイス宜しくお願い致します。

回答No.3

imogasi

Sub test01()
For Each cl In Range("g:I")
MsgBox cl.Address
Next
End Sub
実行すると、範囲内の全セルを横向きに処理することがわかる。
色つきのセルが見つかった段階で次の行の探索に移るコードがやや
面倒。
それであれば色つきのセルが見つかった段階で行をコピーし貼り付け
しループを抜ける（Exit For)ほうが簡単な書き方になるので、下記がよかろう
ーー
質問例はＧ列～Ｒ列だがG-I列に変えた。なるべくA列に近い例にせよ。
＞Ｇ列～Ｒ列内
下辺行というものが有るだろう。列指定でなく範囲指定のほうが具体的。それで１０行目までの例にした。プログラムで最終行を探す手も有るが。
コピー先の列が質問に書いてない。同じ列からとしたが、質問には心配りせよ。
以上は下記のコードを、質問者の要修正点でもある。
多分１番コード行数が少ないのではないかな。
ーーーー
Sub test02()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
For i = 1 To 10
For j = 7 To 9 'G-I列の例
If sh1.Cells(i, j).Interior.ColorIndex <> xlNone Then
MsgBox sh1.Cells(i, j).Address
d = sh2.Range("i65536").End(xlUp).Row
sh1.Range("G" & i & ":I" & i).Copy sh2.Cells(d + 1, 7) 'I列から
Exit For
End If
Next j
Next i
End Sub