シート上の指定したセルのアドレスを(1,A)→(1,1),(1,B)→(1,2)...というふうに (列番号,行番号) の形にし、さらにセルに入っている数字をその後に付け足して(列番号、行番号、数字)の形にしてCSVファイルに出力したいです。
※エクセルでは普通は (行番号,列番号) ですが、xy座標なので (列番号,行番号) と考えてください(^_^;)
単数字(たとえば1)を入力してそのxy座標を取り出すようなマクロは
Sub NumberOnes()
Dim buf As String
Dim rng As Range
buf = ""
For Each rng In ActiveSheet.UsedRange
If rng.Value = 1 Then _
buf = buf & """(" & rng.Column & "," & rng.Row & ")"","
Next
buf = Left(buf, Len(buf) - 1)
Open ThisWorkbook.Path & "\data.csv" For Output As #1
Print #1, buf
Close #1
End Sub
なのですが、つまり、これをシート上の1~50の数字に対して同時に実行し、1つのCSVファイルに(列番号、行番号、数字)を出力したいということです。
マクロに詳しい方、よろしくお願いいたします(>_<)
回答3件
あなたの回答
tips
プレビュー