第1个回答 2015-10-29
Sub s1()
Dim x%
x = 1
Columns(x).Select
End Sub
Sub s2()
Dim x%, y%
x = 1
y = 20
Range(Columns(x), Columns(y)).Select
End Sub本回答被提问者采纳
第2个回答 2015-10-29
用OFFSET函数吧。
X列:
columns("A:A").OFFSET(0,X-1).SELECT
X-Y列:
Columns("A:A").Offset(0, X - 1).Resize(, Y - X + 1).Select