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でゲーム...
-
AIに回答させるって
-
cout と cerrの違い
-
プログラムについての質問です...
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
KEYENCEのシーケンスプログラム...
-
MMDでavi出力が出来ない
-
ListViewの複数選択について
-
VBAのExecメソッドで画面を非表...
-
printfとputcharの違いは
-
エクセルVBAにて アルファ...
-
COBOLで可変長ファイルの出力に...
-
アクセスでエクセルに出力する...
-
Windows Formアプリからコンソ...
-
テキストファイルから特定の文...
-
printfの書式%.*s
-
バッチファイル フォルダサイ...
-
C#でピクチャーボックスに文字...
-
【VBA】PDFを2in1で出力したいです
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
コンセントの電力は入力と出力...
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
テキストファイルから特定の文...
-
Windows11対応の3入力1出力 USB...
-
VBAで有効数字の設定
-
スマホのバッテリー消費につい...
-
Excel VBAで値を変えながら、pd...
-
NTTのホームゲートウェイとOCN...
-
定格冷房能力(出力)とは 定格...
-
プログラムについての質問です...
-
PS5をMacBookProに出力したいの...
おすすめ情報