シート１に記載されたF列、G列の値を メモ帳にコピペするボタンを作成したいです。

Question

シート１に記載されたF列、G列の値を
メモ帳にコピペするボタンを作成したいです。

現在１列は色々と調べて作成できました。
下記を元に二列をコピペするものを作成していますが、
それがうまくいきません。

コピペの順番は、F1→G1→F2→G2・・・と
上から交互にコピーして同じメモ帳に張り付けていく・・・というVBAを作成したいと思っています。

現在の【▼２列コピーしたいVBAの途中経過】では、【NEXTに対するFORがありません】とエラー文が出てしまいますが、NEXTとFORは一個ずつ一応入っていますので、根本的に何かが違うような気がしています。

お力お借り頂けますと幸いです。

▼１列のコピペは成功しました。

Sub makeText()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
 
Dim datFile As String
datFile = ActiveWorkbook.Path & "\data.txt"
 
Open datFile For Output As #1
 
Dim i As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""
    Print #1, ws.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #1
 
End Sub

▼２列コピーしたいVBAの途中経過

Sub makeText()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("sheet1")


Dim datFile As String
datFile = ActiveWorkbook.Path & "\PC\data.html"
 
Open datFile For Output As #1
 
Dim i As Long


i = 1
 For j = 5 To 6
    Do While ws.Cells(i, j).Value <> ""
    Print #1, ws.Cells(i, j).Value
 Next
 i = i + 1
    
Loop
 
Close #1
 
End Sub

Comments

[meg_]

ForループとWhileループの組み合わせの書き方が何か変ではないでしょうか？

[sage]

構文上の問題がありますが、その前にまず仕様を明確にしましょう。
従来(1列のみのコピペ)はnullセルが見つかると終了でした。
2列のコピペの場合、F1→G1→F2→G2・・・と書いていますが、そのどこかでnullセルが見つかると終了していいのでしょうか?(G1がnullでF2がnullでない場合にprintを継続すべきか終了すべきか、F2がnullでG2がnullでない場合にprintを継続すべきか終了すべきか)
これが決定しないと処理ロジックを決定できません。

Answer 1

以下のようにしてください。

i = 1
Do While ws.Cells(i, 5).Value <> ""
    For j = 5 To 6
        Print #1, ws.Cells(i, j).Value
    Next
    i = i + 1
Loop

Answer 2

ループの組み合わせがおかしいです。
Do～For～Next～Loop にならないとダメです。

i = 1
Do While ws.Cells(i, j).Value <> ""
    For j = 5 To 6
        Print #1, ws.Cells(i, j).Value
    Next
    i = i + 1
Loop

.

Comments

[退会済みユーザー]

ありがとうございます。ただ上記では、アプリケーション定義またはオブジェクト定義のエラーです。となってしまいます。

[ttyp03]

失礼しました。
Do While ws.Cells(i, j).Value <> ""
が
Do While ws.Cells(i, 5).Value <> ""
ですかね。