'join cell's value together
Sub joinString()
'常量
'processing from this row
Const STRAT_ROW = 1
'processing from this column
Const START_COL = 1
'get the current worksheet
Dim mySheet As Worksheet
Set mySheet = ThisWorkbook.Sheets("Sheet1")
'variable to loop
Dim nowRow As Integer
Dim nowCol As Integer
'string which is joined by cell's value
Dim str As String
'initiation of variable
nowRow = STRAT_ROW
nowCol = START_COL
str = ""
'loop by row
While mySheet.Cells(nowRow, 1).Value <> ""
'loop by column
While mySheet.Cells(nowRow, nowCol).Value <> ""
'join cell's value together
str = str & mySheet.Cells(nowRow, nowCol).Value
nowCol = nowCol + 1
Wend
MsgBox (str)
ThisWorkbook.Sheets("Sheet2").Cells(nowRow, 1).Value = str
'initiation for the next row
str = ""
nowCol = 1
nowRow = nowRow + 1
Wend
End Sub