vba2
来源:互联网 发布:淘宝亚马逊礼品卡 编辑:程序博客网 时间:2024/04/29 00:14
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