vba2

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
    Dim lastRow As Integer
    Dim lastCol As Integer
    'string which is joined by cell's value
    Dim str As String
    Dim strBegin As String
        'initiation of variable
        nowRow = STRAT_ROW
        nowCol = START_COL
        str = ""
        lastRow = 0
        lastCol = 0
        strBegin = "INSERT INTO "
     While mySheet.Cells(nowRow, 1).Value <> ""
        lastRow = lastRow + 1
        nowRow = nowRow + 1
     Wend
     While mySheet.Cells(1, nowCol).Value <> ""
        lastCol = lastCol + 1
        nowCol = nowCol + 1
     Wend
        nowRow = STRAT_ROW + 1
        nowCol = START_COL
       
    While nowRow <= lastRow
        While nowCol <= lastCol
            str = str & "','" & mySheet.Cells(nowRow, nowCol).Value
            nowCol = nowCol + 1
        Wend
        nowRow = nowRow + 1
        MsgBox (str)
        ThisWorkbook.Sheets("Sheet2").Cells(nowRow, 1).Value = str
        str = ""
        nowCol = START_COL
    Wend
           

End Sub