EXCELで3行を一組にして結合する方法について

Question

かなりの行があるテキストファイルをEXCELに読み込みます。
3行が1組になっているので、別のBというシートにその3行を連結した結果を書き出します。
（3行といっても1行には1セルしかありませんが・・・）
次に4行目～6行目が1組になっているので、上記と同様にBシートの2行目に連結した結果を書き出します。
これは、手で１行づつBシートに
=A1&A2&A3 、次の行に =A4&A5&A6

等と式を記載すれば希望のものが出来るのですが、場合によっては元の行が30,000行ほどあったりするので、それを全て手で入力していくには、根気と時間が必要になります。
この作業は、毎日発生する予定で、他の仕事もやらなくてはならないため、短時間にこれを実現できれば・・・と、思っていますが、何をどうすれば良いのかわからずにいます。

これを解決できる方法がありましたら、是非教えて頂けると助かります。
ちなみにEXCEL XP（OfficeXPに付属）のものです。
例えば、EXCELではなく、＊＊＊というフリーのソフトならできます！というのも歓迎です。
すみませんが、宜しくお願いします。

tom04 · Accepted Answer

こんばんは！
一例です。
画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面がでますので
↓のコードをコピー＆ペーストし、マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）
Sheet1のデータは1行目からあるとします。

Sub test()  'この行から
    Dim i As Long
    Dim ws1, ws2 As Worksheet
    Set ws1 = Worksheets("sheet1")  '←Sheet名（Sheet1の部分）は適宜変更してください。
    Set ws2 = Worksheets("sheet2")  '←こちらのSheet名も適宜変更
    For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row Step 3
    ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = _
        ws1.Cells(i, 1) & ws1.Cells(i + 1, 1) & ws1.Cells(i + 2, 1)
    Next i
End Sub 'この行まで

お役に立てば良いのですが・・・m(__)m

bin-chan · Answer

１）テキストを読み込んだシートを仮に[Sheet1]とします。適宜読み替えてください。
２）シートを追加します。このシートを仮に[Sheet2]とします。
３）sheet2のセルa1に、以下をコピペしてください。
式[=indirect("Sheet1!A"&(row()-1)*3+1)&indirect("Sheet1!A"&(row()-1)*3+2)&indirect("Sheet1!A"&(row()-1)*3+3)]
４）シート２のセルA1の右下（セルA2左下・セルB1の右上・セルB2の左上）に■があるので、マウスで下方向に必要なだけドラッグ。

これでSheet1の列Aが３行単位で連結されてSheet2のセルA1以降に表示されます。

以下必要に応じて。
５）Sheet2の列Aをコピー
６）どこかに、「形式を選択して貼り付け」－「値」で式の結果が値として保存されます。

neochi_life · Answer

参考ページはたくさんありますが

すぐ役立つ　エクセルＶＢＡマクロ集
http://www.asahi-net.or.jp/~zn3y-ngi/

こちらで使い方などを調べて（ＶＢＡマクロというのはオフィスに標準でパッケージされてるのですぐ使えます）

以下のページを参考にマクロを作ればいいのではないでしょうか？
Macro　コピー 
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv20009.html
異なるシート間で範囲指定してコピーして貼り付けるには？
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv991.html

7.2 データがある最終行を知る方法
http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml

文字列の結合
http://www.officepro.jp/excelvba/basic/index7.html

このあたりを参考にして

１：元シート（仮にＡとして）の文字列を３行分結合する
２：Ｂシートに１の結果を書き込む
３：Ａシートのデータ行が終わるまで、１～２の動作を繰り返す

こんな感じのものを作れば、ボタン一つで質問主様の意図する動作を行わせることができると思います。

bin-chan · Answer

もうひとつの方法

１）読み込んだシートを仮に[Sheet1]とします。
２）セルB1に値[1]を入力、セルB2に値[2]を入力。
３）セルB1：セルB2を選択し、選択領域右下の■をダブルクリック（これで全行に行番号が振られます）
４）セルC1に式[=A1&A2&A3]を入力。
５）セルC1：セルC3を選択し、選択領域右下の■をダブルクリック（これで3行単位に式がコピーされます）
３行単位で、１行目にデータ、２行目・３行目が空白が繰り返しになります。

６）列B:列Cを選択してコピー。
７）どこか別シートで、形式を選択して貼り付け-値
８）列B(元の列Cである３行連結部分）から列A（元の列Aである連番）を選択。
９）メニューorリボンのデータ>並べ替えを実行（キーは列B)
これで列Bの値がある行がひとかたまりになります。

１０）列Aで、列Bに値がない部分の「行全体」を削除。
１１）メニューorリボンのデータ>並べ替えを実行（キーは列A)
これで３行連結部のみが残ります。

aoumiushi · Answer

こんな感じかな？
VBA使用します。
但しA列の表示形式が、文字列の場合のみです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim a, b As Integer
  Dim c As String
  a = 0    '初期化
  b = 0    '初期化
  c = ""   '初期化
  
  For i = 1 To 25  'MAXの行数に変更
    c = c + Cells(i, 1).Value
    a = a + 1
    If a = 3 Then
      b = b + 1
      Cells(b, 2).Value = c
      c = ""
      a = 0
    End If
  Next
End Sub
きたない式ですみません。

mike_g · Answer

=INDEX(Sheet1!A:A,ROW(A1)*3-2)&INDEX(Sheet1!A:A,ROW(A1)*3-2+1)&INDEX(Sheet1!A:A,ROW(A1)*3-2+2)

mike_g · Answer

[No.6]の式は、次式と同じことですが、こちらの方が少し短いです。

=INDEX(Sheet1!A:A,ROW(A1)*3-2)&INDEX(Sheet1!A:A,ROW(A1)*3-1)&INDEX(Sheet1!A:A,ROW(A1)*3)

keithin · Answer

＞この作業は、毎日発生する予定で

ということなので。

BのシートのA1に
=Sheet1!A1&Sheet1!A2&Sheet1!A3
を記入
A1:A3を選んだ状態から，リストの下端までえいやーーーっとオートフィルドラッグ

この状態から，さらに
A列を列選択
Ctrl+Gをおす
現れたダイアログでセル選択をクリックする
現れたダイアログで空白セルにマークしてOKする
空白のままだった２セルずつが飛び飛びに選択されるので，右クリックして削除で上に詰める

以上で所定の式を希望の並びに詰めて配置できたので，毎日のデータはシート１に上書きで貼り付けてしまえば，数式のシートが即座にコタエを並べて出してくれます。
（形式を選んで値に貼り替える必要はまったくありません）

neochi_life · Answer

２です。
マクロを使用する場合には、「ツール＞マクロ＞セキュリティー」から、セキュリティーレベルを中に設定
自分でテストデータ作って動くことを確認したものを参考に張っておきます
一応、これで「自作のフリーソフト」ができます

以下手順

・新しいファイルを作ります（作業用です）
・Alt+11でビジュアルベーシックエディターを開き、Module1を追加する
・以下をまるごと貼り付ける

' ---------- 内容始まり ----------
Private Sub 作業()
Dim 合成 As Variant
Dim i, j, l As Integer
Dim 最終行 As Integer

合成 = ""
j = 1
l = 2
m = 0
Sheets("sheet2").Select   'コピー元のシートに切替
最終行 = Cells(1, 1).End(xlDown).Row

For i = 3 To 最終行 Step 3
    合成 = Cells(j, 1) + Cells(l, 1) + Cells(i, 1)
    j = j + 3
    l = l + 3
    Sheets("sheet1").Select   'コピー先のシートに切替
    m = i / 3
    Cells(m, 1) = 合成
    Sheets("sheet2").Select   'コピー元のシートに切替
Next
Sheets("sheet1").Select   'コピー先のシートに切替
End Sub
' ---------- 内容終わり ----------

・Ctrl+S　で保存する
・次に、Module1のちょっと上にあるThis Workbookをダブルクリックして以下の記述を丸ごと貼り付ける

' ---------- 内容始まり ----------
Private Sub Workbook_Open()
    Application.OnKey "^{q}", "作業"　'Ctrl+Qボタンを押すとマクロが動きます
End Sub
' ---------- 内容終わり ----------

・Ctrl+S　で保存する
・一度閉じてからもう一度開く（確認ダイアログが出るので、「マクロを有効にする」を選ぶ）

ここまでで準備ができました

使い方
・元になるシートをsheet2として、元になるシートを丸ごとコピペしておきます
・出力先になるシートをsheet1として、シート内容をクリアしておきます
・Ctrl+Qを押すと、シート２の内容を３行ずつを1行につなげて、シート１に書き出します
・元データが「３行１セットである前提」で、何行あっても最終行まで書き出します
・３行１セットが崩れてたらエラーが起きます
・シート１に書き出されたデータを、保存するファイルに丸ごとコピペします

--------------------------------
他の方が言われてるように、関数式をどこかに保存しておいて、使う時に貼り付けて必要な行だけドラッグしつつコピーでもいいですが、元データが３万行とかもしかするとそれ以上あるんですよね？ということは、自分でドラッグするのは１万行以上あるわけです。
それもけっこう大変だろうなのでは？と思い、マクロを作ってみました

neochi_life · Answer

５番さんへ
記述内容はほぼ一緒ですが記述中、ループ内で元データを３個ごとに結合する部分で誤りがあります
参考としてこんな感じ～で書かれたのだと思いますが一応。

ws1.Cells(i, 1) & ws1.Cells(i + 1, 1) & ws1.Cells(i + 2, 1)
ですが、一回目の読み込みでは
ws1.Cells(1, 1) & ws1.Cells(2, 1) & ws1.Cells(3, 1)
となり正常にセルの内容を結合しますが

ではi=2以降は？
ws1.Cells(2, 1) & ws1.Cells(3, 1) & ws1.Cells(4, 1)
ws1.Cells(3, 1) & ws1.Cells(4, 1) & ws1.Cells(5, 1)
ws1.Cells(4, 1) & ws1.Cells(5, 1) & ws1.Cells(6, 1)
・・・・
となり重複して元データの内容を書き出してしまいます

質問主の意図する結合は
ws1.Cells(1, 1) & ws1.Cells(2, 1) & ws1.Cells(3, 1)
ws1.Cells(4, 1) & ws1.Cells(5, 1) & ws1.Cells(6, 1)
ws1.Cells(7, 1) & ws1.Cells(8, 1) & ws1.Cells(9, 1)
・・・・
だと思います

EXCELで3行を一組にして結合する方法について

１）テキストを読み込んだシートを仮に[Sheet1]とします。

参考ページはたくさんありますが

もうひとつの方法

こんな感じかな？

こんばんは！

=INDEX(Sheet1!A:A,ROW(A1)*3-2)&INDEX(Sheet1!A:A,ROW(A1)*3-2+1)&IN

[No.6]の式は、次式と同じことですが、こちらの方が少し短いです。

＞この作業は、毎日発生する予定で

２です。

５番さんへ

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

=INDEX(Sheet1!A:A,ROW(A1)3-2)&INDEX(Sheet1!A:A,ROW(A1)3-2+1)&IN