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として処理して良いですか。
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.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
お探しの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でゲーム...
-
詳しくないので、どなたかお教...
-
VBA レジストリの値の読み方に...
-
printfとputcharの違いは
-
MMDでavi出力が出来ない
-
COBOLのMOVEで桁数が異なる場合
-
VBAでテキスト出力時のスペース...
-
プログラムについての質問です...
-
4Kの外部モニターに出力すると...
-
【エクセル、並び替えについて】
-
printfの書式%.*s
-
cout と cerrの違い
-
エクセルで英字と数字を組み合...
-
コンセントの電力は入力と出力...
-
TV出力ポートをOFFにすれば良い...
-
CRC16計算について
-
【PowerPoint VBAの高速化】
-
ACアダプタの適合性・互換性に...
-
\\00.入力先ディレクトリ上でWO...
-
ExcelマクロでIEのHP上のダウン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
コンセントの電力は入力と出力...
-
AIに回答させるって
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
アクセスでエクセルに出力する...
-
printfとputcharの違いは
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
VBAで有効数字の設定
-
coutで出力した文字を消去する...
-
Windows Formアプリからコンソ...
-
KEYENCEのシーケンスプログラム...
-
CRC16計算について
おすすめ情報