ID非公開

2021/8/20 15:03

55回答

CSVデータを2行毎に1行にまとめたい。

Excel | Visual Basic101閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

ThanksImg質問者からのお礼コメント

選定遅くなって申し訳ありません。 やはり判る方の手にかかると簡単にできるものなんですね。 結果を別ファイルに吐き出しする後の利便性から回答者様をベストアンサーに選定させて頂きました。 折角教えて頂き問題は解決したものの、データの内容が金券に値するものであった為、私の手作業では信頼しかねるということで変換作業は業者に発注することになりました。 7万ぐらいかかりました・・・・。

お礼日時:9/27 10:20

その他の回答(4件)

0

CSVファイルをエクセルで開いて、以下のマクロを実行して下さい。B列に出力します。 Dim R, LastR LastR = Cells(Rows.Count, 1).End(xlUp).Row For R = 1 To LastR Step 2     Cells((R - 1) \ 2 + 1, 2) = Cells(R, 1) & Cells(R + 1, 1) Next R

0

素人っぽく、分かりやすくやってみたサンプルです。 Sub Sample() Dim buf As String Open "C:\Sample\Input.csv" For Input As #1 Open "C:\Sample\Output.csv" For Output As #2 Do While Not EOF(1) Line Input #1, buf Print #2, buf; If EOF(1) Then buf = "" Else Line Input #1, buf End If Print #2, buf Loop Close #2 Close #1 End Sub

0

画僧の様にしたいのであれば、 B1: =INDEX(A:A,ROW()*2-1)&INDEX(A:A,ROW()*2) 下へコピペ。

画像
0

一例です。 作業列を設け、 ①B1=A1 & A2 (最終行までフィル) ②C1=MOD(ROW(A1), 2) (最終行までフィル) ③B列の式を外す ④②の列でフィルターを掛け0の行を削除 ⑤A列とB列を削除 参考程度に

画像