[[20141022213853]]　『各シート内特定セルの文字列の串刺し結合は可能で』（ｔｋｔｋ）　ページの最後に飛ぶ

『各シート内特定セルの文字列の串刺し結合は可能でしょうか？』（ｔｋｔｋ）

平素より当掲示板にはお世話になっております。

要約の通り、各シート内特定セルの文字列の串刺し結合は可能でしょうか？
具体的には
sheet1からsheet30までのA1セル内の文字列を順番にsheet31のA1セルに串刺し結合することです。
（sheet1には"あああ"sheet2には"いいい"・・・と書いてあれば
出力シートsheet31の特定セルに"あああ,いいい,ううう,・・・"と表示させる）

誠に勝手ではありますが、急用のため迅速なご回答頂ければ幸いです。
何卒よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 マクロの例です。

 標準モジュールに下記を置き、Sheet31 で
 A1=Concat3D(1, 30, "A1", ",")
 でどうでしょうか。

 シートの開始位置と終了位置の情報は名前ではなく、左からの位置です。

 Function Concat3D(startWSNum As Long, endWSNum As Long, strAddress As String, delim As String)
    Dim i As Long
    For i = 1 To Worksheets.Count
        If i >= startWSNum And i <= endWSNum Then
            Concat3D = Concat3D & IIf(Concat3D = "", "", delim) & Worksheets(i).Range(strAddress).Text
        End If
    Next
 End Function
（Mook） 2014/10/22(水) 23:24

コメント返信：

[ 一覧(最新更新順) ]

[[20141022213853]] 『各シート内特定セルの文字列の串刺し結合は可能で』（ｔｋｔｋ） ページの最後に飛ぶ

[[20141022213853]]　『各シート内特定セルの文字列の串刺し結合は可能で』（ｔｋｔｋ）　ページの最後に飛ぶ