6楼: Originally posted by ausir at 2013-06-21 07:14:09
Public i As Integer
Public Const XMS As Integer = 4

Sub test()
Dim r As Range
Dim startcol As Integer, endcol As Integer
Dim x1, x2, x3, x4

Dim s As String

startcol = 1
endcol = startco ...