excel2003 如何用VBA编程选定若干单元格区域?

Question

如何在excel里用VBA编程来选定单元格区域？比如我要选定从(x,y)到(m,n)单元格之间的矩形区域~
假设上面的x为3，y为4，m为17，n为8，我现在只知道可以用Worksheets("Sheet1").Range(“D3:H17”).Select来选定
但我这里的四个变量x,y,m,n是可变的，我需要直接可以把变量代入然后选定的方法~
在线等，求高人指点

Answer 1

第一种方法：

Ctrl+G调出定位对话框，在【引用位置】处输入A1:E5000，点击【确定】即可。

第二种方法：

在程序左上角的【名称框】处输入A1:E5000，然后回车即可。

第三种方法：

在单元格区域中选中任意一个单元格，按Ctrl+Shift+*即可选定单元格所在整个区域。

第四种方法：

按Ctrl+End跳转到区域最右下角单元格，用鼠标选中；然后拉动滚动条回到第一行，按住Shift，用鼠标点选A1即可。

Answer 2

S1="D",
S2="H"
L1="3"
L2="4"
range(S1 & L1 & ":" & S2 & L2).select
这样能直接修改s1，s2，L1，L2的变量就能自动选择相应的范围

Answer 3

Range(“D3:H17”)里的参数，完全可以用变量的，只是要记住是字符串类型的值；

例如：
要选：“B3” -- “G15”这样的矩形区域；用变量来表示：
dim S1 as string
dim S2 as string
dim L1 as Long
dim L2 as Long
L1 = 3
L2 = 15
S1 = "B" & Cstr(L1)
S2 = "G" & Cstr(L2)
Range(S1 & ":" & S2)

Answer 4

用cells来选择，比如你要操作的工作表名称是“Sheet1"，则语句如下：
Worksheets("Sheet1").Range(Worksheets("Sheet1").cells(x,y), Worksheets("Sheet1").cells(m,n)).Select
或者用With简化一下：
With Worksheets("Sheet1")'这里指定你要操作的工作表
.Range(.cells(x,y),.Cells(m,n)).Select
End With

Answer 5

不一定要字符窜，Excel的Range对象也可以这样定义。
Dim SelectRange as Range
With Thisworkbook.Worksheets(1)'这里指定你的数据所在工作表
Set Select Range = .Range(.cells(x,y),.Cells(17,8))'记住要用Set给对象赋值
End With

x,y,m,n就是你的3,4,17,8