マクロでCSV出力の方法(コード希望)

エクセルの仕様

カラムはA～J
レコード数は入力されているレコードまで

■CSV出力の際の希望
0. 4行目から出力したい
0. 結合されているセルは全て解除したい
0. 上記2で解除された全てのセルには結合されていた時のデータを入れたい

私用で利用したいだけなので、簡単なコードで構いません。
ご教授いただけましたら再話です。
よろしくお願いいたします。

※簡単ではないのかもしれません..すみません先に謝っておきます

KoichiSugiyama

2016/01/21 10:46

こちらの質問が他のユーザから「やってほしいことだけを記載した丸投げの質問」という指摘を受けました「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。

2016/01/21 10:49

2016/01/21 11:21

2016/01/21 21:10

2016/01/22 00:40

2016/01/22 02:04

行動規範の内容に同意します

回答1件

ベストアンサー

どうぞ。

ただ、数名の方からこの質問がマイナス評価を受けているようなので、次回から多少なり自分でコードを書いてみて、動かないところを聞くと良いかと思います。

単に作ってほしいだけという話なら、クラウドワークス等で発注するか、お金を払ってスクールなどで要望されるべきかと思われます。

lang
1Sub CSV保存テスト()
2    ActiveSheet.Copy
3    Dim シート As Worksheet
4    Set シート = ActiveSheet
5
6    '■カラムはA～J、レコードは4行目から入力されているレコードまで
7    ' (これはズボラしてCurrentRegionで済ませたので、適宜修正してください)
8    Dim 範囲 As Range
9    Set 範囲 = シート.Range("a4").CurrentRegion
10    Dim セル As Range
11    For Each セル In 範囲
12        If セル.MergeCells Then
13            Dim マージ範囲 As Range
14            Set マージ範囲 = セル.MergeArea
15            Dim 値 As Variant
16            値 = セル.MergeArea(1, 1)
17            
18            '■結合されているセルは全て解除したい
19            セル.UnMerge
20            
21            '■上記2で解除された全てのセルには結合されていた時のデータを入れたい
22            マージ範囲 = 値
23        End If
24    Next
25    
26    'CSV保存
27    Application.DisplayAlerts = False
28    ActiveWorkbook.SaveAs Filename:=Environ("userprofile") & "\Sample.csv", _
29        FileFormat:=xlCSV, CreateBackup:=False
30    Application.ActiveWorkbook.Close
31    Application.DisplayAlerts = True
32End Sub