![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
マクロは、シート:CSV出力の2行目以降を設定します。
1行目の見出しは、あなたが設定しておいてください。
Public Sub CSV出力()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim maxrow As Long
Dim row1 As Long
Dim row2 As Long
Dim key As String
Dim pkey As String: pkey = ""
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("CSV出力")
maxrow = ws1.Cells(Rows.Count, 1).End(xlUp).Row
ws2.Rows("2:" & Rows.Count).ClearContents
row2 = 2
For row1 = 2 To maxrow
'ヘッダ作成
key = ws1.Cells(row1, "A").Value & "|" & ws1.Cells(row1, "B").Value & "|" & _
ws1.Cells(row1, "C").Value & "|" & ws1.Cells(row1, "D").Value & "|" & ws1.Cells(row1, "D").Value
'ヘッダ比較
If pkey <> key Then
'ヘッダが異なるならA~E列を設定
ws2.Cells(row2, "A").Resize(, 5).Value = ws1.Cells(row1, "A").Resize(, 5).Value
row2 = row2 + 1
End If
'F~G列を設定
ws2.Cells(row2, "F").Resize(, 2).Value = ws1.Cells(row1, "F").Resize(, 2).Value
row2 = row2 + 1
pkey = key
Next
MsgBox ("完了")
End Sub
No.2
- 回答日時:
No1です。
誤記訂正です。項番3は、以下が正しいです。No1の項番3は無視してください。
3.重複するヘッダーがない場合は、どのように出力しますか。
①1行にA列~G列まで出力する。
②1行にA列~H列まで出力し、次の行のG列にご契約者名を出力する。
①、②のどちらでしょうか。
この回答へのお礼
お礼日時:2023/04/19 16:38
ご回答以下になります。
詳しく記載できておらず、すみません。
1.A列~E列までが、全て同じ場合に重複するヘッダーとしてみなしております。
2.重複するヘッダーは一つの塊になっております。
3.②にでお願いいたします。
4・左側がSeet1で、右側がCSV出力で処理していただけるとうれしいです。
No.1
- 回答日時:
補足要求です。
1.A列~F列までが、全て同じ場合に重複するヘッダーであると解釈して良いですか。
2.重複するヘッダーは、1つの塊になっていますか。
A列 (B列以降は省略)
111 ...
111 ...
111 ...
222 ...
222 ...
222 ...
ではなく
A列 (B列以降は省略)
111 ...
111 ...
222 ...
111 ...
222 ...
222 ...
のように並ぶことがありますかという質問です。
3.重複するヘッダーがない場合は、どのように出力しますか。
①1行にA列~G列まで出力
②1行にA列~H列まで出力し、次の行のG列にご契約者名を出力
①、②のど知多でしょうか。
4.左側のシートをSheet1、右側のシートをSheet2として処理して良いですか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- その他(プログラミング・Web制作) pythonのpandasのcsvの外部結合(outer_join)した際に列が想定とは異なる事象 1 2022/05/25 13:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
スマホのバッテリー消費につい...
-
OBS配信すると、マイクが途切れ...
-
cout と cerrの違い
-
太陽光パネル 12v直列接続 ...
-
4Kの外部モニターに出力すると...
-
【UWSC】WEBページ中の特定文字...
-
MMDでavi出力が出来ない
-
Windows Formアプリからコンソ...
-
coutで出力した文字を消去する...
-
携帯の液晶画像をパソコンに出...
-
コンセントの電力は入力と出力...
-
プログラムについての質問です...
-
Zガンダムのハイザックて、ジェ...
-
Anker社の充電器について。 Ank...
-
昨日SSDを増設したら、PCが点か...
-
printfとputcharの違いは
-
ACCESS フォームで選択したレコ...
-
TV出力ポートをOFFにすれば良い...
-
VBAでテキスト出力時のスペース...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
printfとputcharの違いは
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
MMDでavi出力が出来ない
-
コンセントの電力は入力と出力...
-
アクセスでエクセルに出力する...
-
OBS配信すると、マイクが途切れ...
-
coutで出力した文字を消去する...
-
CRC16計算について
-
VBA レジストリの値の読み方に...
-
ACCESS クエリ→フォーム...
-
printfの書式%.*s
-
VBAで有効数字の設定
-
VBAでテキスト出力時のスペース...
-
VBAのExecメソッドで画面を非表...
-
makeで文字化けする。migwのmak...
おすすめ情報