简单的vba单元格内容连接程序1

'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