エクセル 指定列をCSVで保存

エクセル2010で
マクロを使用しb列とd列とf列をCSVで保存するやり方を教えてください。
よろしくお願いいたします。

No.2 回答者： 銀鱗 回答日時： 2018/12/08 14:31

んー。

その程度なら「記録マクロ」で良いような気がする。
もしもそれで意図する動作にならないなら、出来上がったマクロを修正すれば良いと思うんだ。

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B:B,D:D,F:F").Select
Range("F1").Activate
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\example.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("example").Select
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
End Sub

とか。

No.1 回答者： yokomaya 回答日時： 2018/12/08 12:50

Sub BDFCSV()

Dim i As Long, ur As Range
Set ur = ActiveSheet.UsedRange
With Workbooks.Add
For i = 1 To 3
ur.Columns(i * 2).Copy .Sheets(1).Cells(1, i)
Next
.SaveAs "hogehoge.csv", FileFormat:=xlCSV
.Close False
End With
End Sub