エクセル関数 複数シートのある列に入力された文字列を集計シートに統合したい

お願いします。
同じフォーマットの表が1ファイルの複数シート（ここでは10シートとします）にあり、
各シートのB列に、B2セル以降に文字列が入力されているとします。
（各シートの同じセルにデータは複数ありません）
それら文字列データを集計シートに統合する関数をお教えください。

（イメージ）
　　　　　　(Sheet1（集計）)　（Sheet2）　(Sheet3)　(Sheet4)
1行目　　　　　　あ　　　　　　　　　あ
2行目　　　　　　か　　　　　　　　　か
3行目　　　　　　さ　　　　　　　　　さ　　　　　　
4行目　　　　　　た　　　　　　　　　　　　　　た
5行目　　　　　　な　　　　　　　　　　　　　　な
6行目　　　　　　は　　　　　　　　　は
7行目　　　　　　ま　　　　　　　　　　　　　　　　　　　ま　　
8行目　　　　　　や　　　　　　　　　や
9行目　　　　　　ら　　　　　　　　　　　　　　　　　　　ら　
10行目　　　　　 わ　　　　　　　　　　　　　　　　　　　わ

No.2 ベストアンサー 回答者： shorun 回答日時： 2016/06/13 09:33

Sheet1のA1セルに次式を入力して

=Sheet2!A1&Sheet3!A1&Sheet4!A1
A10セルまでオートフィルコピーする。

No.3 回答者： shorun 回答日時： 2016/06/13 09:40

No2です

10sheetなら
=Sheet2!A1&Sheet3!A1&Sheet4!A1&・・・・・・・&Sheet10!A1
まで追記してください。

この回答へのお礼

なるほど!!、理解できます。
一発ですね。
感謝です。

お礼日時：2016/06/13 18:55

No.1 回答者： ママチャリ 回答日時： 2016/06/12 21:15

手作業で行うのであれば、貼り付けのときに、「空白セルを無視する」を選択するとお望みのことが可能です。

マクロでも良ければ、こんな感じです。

Sub sample()
Dim ws As Worksheet
For Each ws In Sheets
If Not ws Is Sheets("Sheet1") Then
ws.Columns("B:B").Copy
Sheets("Sheet1").Columns("B:B").PasteSpecial SkipBlanks:=True
Application.CutCopyMode = False
End If
Next
End Sub

この回答へのお礼

有難うございました！
空白無視も忘れていた自分にショックです。
マクロは殆んど経験なく、空白無視のコピペで、締め切りに間に合いました。

お礼日時：2016/06/13 18:50