Question

EXCEL中VB语言变量的使用

Sub Macro1()
Columns("H:K").Select
Selection.EntireColumn.Hidde= True
End Sub
以上是用来隐藏H列到K列的VB过程，如果我不固定隐藏列是H到K，而是用循环检索出来的两个数字变量，比如Y1和Y2（Y1是起始列，Y2是结束列），我该如何将Columns("H:K").Select 中的H和K替换成变量Y1和Y2.
如果不行，有什么好的办法呀！！
我说过了，Y1和Y2都是数字变量，不过我现在有答案了，
Range("B1:Z1").EntireColumn相当于Columns("B:Z")
Cells(1, 2).Resize(1, 25)=Range("B1:Z1")，其中的2和25可以是变量

Answer 1

Sub Macro1()
y1 = "H"
y2 = "K"
Columns(y1 & ":" & y2).Select
Selection.EntireColumn.Hidden = True
End Sub
假如将两个变量放在单元格里，比如放在A1和A2里。也可以
Sub Macro1()
Columns([a1] & ":" & [a2]).Select
Selection.EntireColumn.Hidden = True
End Sub
方式是多样的，灵活应该用行了。

Answer 2

Sub Macro1()
dim y1,y2 as string
y1="h"
y2="k"
Columns(Y1 & ":" & Y2).EntireColumn.Hidden= True
End Sub
数字变量：
Sub Macro1()
Dim y1, y2 As Integer
y1 = 5
y2 = 13
For i = y1 To y2
Columns(i).EntireColumn.Hidden = True
Next i
End Sub

Cells(1, 2).Resize(1, 25)=Range("B1:Z1")用于隐藏列可以，但用于其他时，不能代表整个列。

追问

如果我的Y1到Y2有合并单元格，循环一列一列隐藏好像不行，是不是只能用
Cells(1, Y1).Resize(1, Y2-Y1).EntireColumn.Select
Selection.EntireColumn.Hidden = True

追答

合并单元不影响隐藏。
用这个也可以：
Sub Macro1()
Dim y1, y2 As Integer
y1 = 5
y2 = 13
Range(Columns(y1), Columns(y2)).EntireColumn.Hidden = True
End Sub