|
とりあえず、出力するほうだけ。
ファイル名などは、とりあえず、固定にしています。
Sub 書き出しtest()
Dim FileNo As Integer
Dim FileName As String
Dim myrange As Range
Dim r As Integer
r = Range("B5").End(xlDown).Row '下端検出
FileName = "C:\test\色付きセルアドレス.csv"
FileNo = FreeFile()
Open FileName For Output As #FileNo
For Each myrange In Range(Cells(6, 9), Cells(r, 20))
If myrange.Interior.ColorIndex = 8 Then
' Write #FileNo, myrange.Address
Print #FileNo, myrange.Address
End If
Next
Close #FileNo
End Sub
CSV ということですが、出力セルをすべてカンマ区切りで出力するのですか?
そうであれば、上記の例では、1セルアドレスごとに改行になるので、
ループ中では変数に格納するだけにして、ループ終了後に1度だけ
ファイルに書き出すようにすればよいと思います。
|
|