エクセルのセル、このような合体はできるか？

質問

よろしくお願いします。
エクセルで下記のような合体はできるのでしょうか？

A列　　　　　　　　　　B列　　　

佐藤　　　　　　　　　田中
　　　　　　　　　　　　池田

このデータのA列とB列を合体させて

A列
（１）佐藤
（２）田中
（３）池田

という一つの行にしたいのですが、なにか　式を使ってできないでしょうか？

何十行も、テキストをコピーして貼り付け、ということをやっていると
あまりにも時間がかかってしまい、うまくできないかと思いました。

知恵を貸してください。

よろしくお願いします。

回答No.1

tom04 · ベストアンサー

こんばんは！
VBAでの一例です。

データはA・B列のみだけだとして、両列とも1行目からデータがあるとしています。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので、
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
Dim buf As String
Application.ScreenUpdating = False
For j = 1 To 2
For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
buf = ""
buf = Cells(i, j)
Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
Selection = "(" & Selection.Row - 1 & ")" & buf
Next i
Next j
Application.ScreenUpdating = True
Cells(1, 3).Delete (xlUp)
Columns("A:B").Delete
Columns(1).AutoFit
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、別Sheetにデータをコピーしてマクロを試してみてください。

参考になれば良いのですが・・・m(_ _)m

お礼

回答ありがとうございます。
VBAは難しそうですね。

勉強してみます。

回答No.3

KURUMITO

例えばA1セルやB1セルには項目名が有り(必ず入力してください）、A2セルから下方には佐藤などの文字列が入力されており、B2セルから下方には田中、池田などと入力されているとします。A列の文字列に対してその傘下にある文字列の行が幾つになっても対応できるようにするためには作業列を作って対応することがよいでしょう。

C2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2<>"",COUNTA(A$1:A1)+COUNTA(B$1:B1)-1,"")

合体させた文字列を例えばE2セルから下方に表示させるためには次の式をE2セルに入力して下方にオートフィルドラッグします。

=IF(ROW(A1)>COUNTA(A:A)+COUNTA(B:B)-2,"",IF(COUNTIF(C:C,ROW(A1))=1,"(1)"&INDEX(A:A,MATCH(ROW(A1),C:C,0)),"("&ROW(A1)+3-MATCH(ROW(A1),C:C,1)-COUNT(C$1:INDEX(C:C,MATCH(ROW(A1),C:C,1)))&")"&INDEX(B:B,MATCH(ROW(A1),C:C,1)+ROW(A1)+1-MATCH(ROW(A1),C:C,1)-COUNT(C$1:INDEX(C:C,MATCH(ROW(A1),C:C,1))))))

元の表がシート1に有るとしてシート2のA2セルから下表に表示させるのでしたら次の式をシート2のA2セルに入力して下方にオートフィルドラッグすればよいでしょう。

=IF(ROW(A1)>COUNTA(Sheet1!A:A)+COUNTA(Sheet1!B:B)-2,"",IF(COUNTIF(Sheet1!C:C,ROW(A1))=1,"(1)"&INDEX(Sheet1!A:A,MATCH(ROW(A1),Sheet1!C:C,0)),"("&ROW(A1)+3-MATCH(ROW(A1),Sheet1!C:C,1)-COUNT(C$1:INDEX(Sheet1!C:C,MATCH(ROW(A1),Sheet1!C:C,1)))&")"&INDEX(Sheet1!B:B,MATCH(ROW(A1),Sheet1!C:C,1)+ROW(A1)+1-MATCH(ROW(A1),Sheet1!C:C,1)-COUNT(Sheet1!C$1:INDEX(Sheet1!C:C,MATCH(ROW(A1),Sheet1!C:C,1))))))

お礼

回答ありがとうございます。

勉強します。

回答No.2

keithin

方法１：とりあえずご質問の直接の回答
目的のセルに
="(1)&A1&CHAR(10) & "(2)"&B1&CHAR(10) & "(3)"&B2
という式を入れて，折り返して全体を表示の書式設定をしておく

方法２：不特定数のＡ列全部と不特定数のＢ列全部をとにかく１つのセルに集める方法
Ａ１からＡ６辺りまで何某か記入されている
Ｂ１からＢ３辺りまで何某か記入されている

Ｃ１に
=IF(A1="","",TEXT(COUNTA($A$1:A1),"(0)")&A1&CHAR(10))&C2
と記入してＣ６までコピーする
Ｄ１に
=IF(B1="","",TEXT(COUNTA($B$1:B1)+COUNTA(A:A),"(0)")&B1&CHAR(10))&D2
と記入してＤ３までコピーする

目的のセルに
=LEFT(C1&D1,LEN(C1&D1)-1)
と記入して折り返して全体を表示の設定を付け，そのセルをコピー，その場で形式を選んで貼り付けの値にマークしてＯＫする

お礼

回答ありがとうございます。
勉強します。