シート1に記載されたF列、G列の値を
メモ帳にコピペするボタンを作成したいです。
現在1列は色々と調べて作成できました。
下記を元に二列をコピペするものを作成していますが、
それがうまくいきません。
コピペの順番は、F1→G1→F2→G2・・・と
上から交互にコピーして同じメモ帳に張り付けていく・・・というVBAを作成したいと思っています。
現在の【▼2列コピーしたいVBAの途中経過】では、【NEXTに対するFORがありません】とエラー文が出てしまいますが、NEXTとFORは一個ずつ一応入っていますので、根本的に何かが違うような気がしています。
お力お借り頂けますと幸いです。
▼1列のコピペは成功しました。
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
▼2列コピーしたい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
回答2件
あなたの回答
tips
プレビュー