マクロCSV出力

質問

Sheet1に入力されている値をCSVファイルに出力したいと思っております。
但し、特定のセルだけを取得して、１つのファイルに出力したいと思っています。

(1)D2～G2に入力されている値を取得
(2)E4～E10までと、E4～E10の最終列までの値を取得
(3)B11の値を取得
(4)A13～A列の最終行まで、A13～A列の最終行の最終列までの値を取得

(1)、(2)、(3)、(4)の値を取得して、１つのCSVファイルに出力するプログラムを作成したいと思っております。

(1)は１行目に出力
(2)は２行目～８行目に出力
(3)は９行目に出力
(4)は１０行目以降に出力

出力の形式は ”TEST”,” ”,”SMP”のようにダブルクォーテーションで値を囲って出力したいと思っています。
値が入っていないセルは”　”,としたいと思っております。

サンプルを作成して頂けないでしょうか。

回答No.3

mt2008

皆さん正論だけどちょっとかわいそうなのでサンプルを。
Sheet2に、出力したい形にリンクを貼ってください。ただし、ちゃんとデータがない場合は空白になるように（例：Sheet2のA1に=""&Sheet1!D2、B1に=""&Sheet1!E2、……）。
あとは以下のコードを動かすと「”」でくくったCSVを作ります。

Sub Sample()
　　nFilenum = FreeFile()
　　Open ThisWorkbook.Path & "\Sample.csv" For Output As #nFilenum
　　i = 1
　　With Sheets(2)
　　　　Do While (True)
　　　　　　If i > 10 And .Cells(i, 1) = "" Then Exit Do
　　　　　　Write #nFilenum, .Cells(i, 1) & "", .Cells(i, 2) & "", .Cells(i, 3) & "", .Cells(i, 4) & ""
　　　　　　i = i + 1
　　　　Loop
　　End With
　　Close #nFilenum
　　MsgBox ("終了")
End Sub

回答No.2

MARU4812

質問でもないし、サンプルというレベルでもない。
そのまま使えるプログラムを無料で作らせようとしているだけ。
いい大人が詐欺みたいな事しないでよ。
会社員とかプロフィールに書くなら人件費無視しないでください。

回答No.1

kamikami30

すみません。嫌です。

調べると考えるができないなら、自作しようとしない方がいいです。
それでもやりたければ、外注してください。

仕事ならやります。