Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Home : Excel 2021)
文字列の結合
投稿日時: 22/02/26 09:39:13
投稿者: Nubo

簡単な事でツマズイているかも知れませんが
 
A23:A27  抜き出しセルのラベル
B23:B27  その文字列
 
(一応、ラベルとしては仮に5個取っていますがB23:B27は、cntの指定で2-5個で適宜変動します、)
 
B29にB23:B27をそれぞれ結合した文字列を書き出す予定です。
 
以下では、B29から右側に抜き出されるだけで結合されません。
コードをどう変更したら良いですか?
 
Sub 並び替え()
Dim i As Long
Dim tmp As String
Dim rng As Range
Dim cnt As Integer
 
'並び替え因子の個数
cnt = WorksheetFunction.CountA(Range("B21:G21"))
 
'並び替え因子を抽出
For i = 1 To cnt
    tmp = Cells(21, i + 1)
    Set rng = Range("$A$13:$A$19").Find(what:=tmp)
    Cells(22 + i, 2) = rng.Offset(, 5)
Next
 
'並び替え因子を結合
    For i = 1 To cnt
        Cells(29, i + 1) = Cells(22 + i, 2)
    Next
         
End Sub

回答
投稿日時: 22/02/26 11:04:13
投稿者: よろずや

'並び替え因子を結合
    tmp = ""
    For i = 1 To cnt
        tmp = tmp & Cells(22 + i, 2)
    Next
    Cells(29, 2) = tmp

投稿日時: 22/02/26 11:20:11
投稿者: Nubo

回答感謝します。
 
以下で自己解決しました。
 
'並び替え因子を結合
     
    join_moji = ""
     
    For Each rng In Range("B23:B27")
        join_moji = join_moji & rng.Text
    Next
     
    Range("B29") = join_moji