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列にご契約者名を出力する。
①、②のどちらでしょうか。
ご回答以下になります。
詳しく記載できておらず、すみません。
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でゲーム...
-
4Kの外部モニターに出力すると...
-
TV出力ポートをOFFにすれば良い...
-
真空管 300 B の前段について
-
プログラムについての質問です...
-
FLEXSOLARパネルからAmazonで買...
-
Accessのテーブルからcsv出力す...
-
海外の110Vの電気製品を日本で...
-
PD充電器について
-
スマホ充電器購入にあたり
-
cout と cerrの違い
-
標準出力の上書き
-
中国の電子レンジの火力は何ワ...
-
【PowerPoint VBAの高速化】
-
makeで文字化けする。migwのmak...
-
printfとputcharの違いは
-
C言語でタイピングゲーム作成
-
CRC16計算について
-
C#でアクセス権限の取得方法が...
-
【VBA】PDFを2in1で出力したいです
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
PD充電器について
-
cout と cerrの違い
-
スマホ充電器購入にあたり
-
Accessのテーブルからcsv出力す...
-
MMDでavi出力が出来ない
-
printfとputcharの違いは
-
VBAのExecメソッドで画面を非表...
-
TV出力ポートをOFFにすれば良い...
-
COBOLのMOVEで桁数が異なる場合
-
VBAでテキスト出力時のスペース...
-
ACCESS クエリ→フォーム...
-
coutで出力した文字を消去する...
-
4種類(A4縦、A4横、A3縦、A3横)のヘ...
-
Windows Formアプリからコンソ...
-
コンセントの電力は入力と出力...
-
C#でアクセス権限の取得方法が...
-
【VBA】PDFを2in1で出力したいです
おすすめ情報

