Question

excel vba range 变量问题

Sub cc()
a = InputBox("请输入列数数字编号")
Range(Cells(3, 3), Cells(3, a)).Select
End Sub

提示，应用程序定义或定义对象错误
如果是 Range(Cells(3, 3), Cells(a, 3)).Select
这个倒可以正常运行，该怎么修改呢，
Range((i & "2:" & i & "205")).Select
这种形式虽然可以，当是我想以数字形式表示。

Answer 1

第一个问题

是 a 变量的格式问题  inputbox 赋值给 a 变量的 是文本格式的数字 所以报错

Sub cc()
a = InputBox("请输入列数数字编号")
Range(Cells(3, 3),Cells(3, Val(a))).Select
End Sub

另外确定你用的excel的版本 是2003版 还是2007以上版,

2003版的最大列数只有256列 所以 如果 你用cells(3,a)指定单元格地址时 ,

a的取值范围a>=1,a<=256,才行

2007以上版的最大列数是16384 那么cells(3,a)指定单元格地址时 ,

a的取值范围a>=1,a<=16384,

如果a 取值超出范围 就会提示错误.

第二个问题

Range((i & "2:" & i & "205")).Select

等于 range(cells(2,9),cells(205,9)).select

Answer 2

改一下代码吗？
Sub cc()
a = InputBox("请输入列数数字编号")
a = a * 1
Range(Cells(3, 3), Cells(3, a)).Select
End Sub

或者将变量a定义一下，只要不是string就行。

Answer 3

Sub cc()
Dim a%
 a = InputBox("请输入列数数字编号")
 Range(Cells(3, 3), Cells(3, a)).Select
End Sub