- 操作单元格往往使用变量。
Dim i As Integer
For i = 1 To 10
Range("a" & i).Select
Next
- 上面代码依次选中单元格A1,A2,A3....A10.其中i为整型变量，Range("a" & i)里面，"a" 为字符，要链接变量要使用 ‘&’。用Cells改写为：
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Next
- Cells括号里面的‘行’，‘列’都可以用变量代替。如
For x = 1 To 10
y = x + 2
Cells(x, y) = x
Next
运行结果
'又如下面代码，F8演示
Sub tetet()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
j = i + 1
Range("h" & i & ":" & "k" & j).Select '
Next
End Sub
'上面语句可以改为
Sub fdfd()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
j = i + 1
Range(Cells(i, "h"), Cells(j, "k")).Select
Next
End Sub
111.gif
无论Range或Cells，括号里面的参数都是可以使用变量的，那个方便选用那个。
- 题目：按部门查找实发工资（代替Vlookup查找）
Paste_Image.png
Sub 查找()
Dim i As Integer
For i = 2 To 10 '循环遍历部门
If Cells(i, 1) = Cells(1, 5) Then '如果等于E1单元格的部门，那么
Cells(1, 6) = Cells(i, 2) '输出实发工资到F1单元格
Exit For '因为只有唯一的一个数值，所以找到需要的数据后，就退出当前的循环，不再往下遍历了。
'如这里在单元格A6找到E部门，获得数据后，就退出循环了，A6后面的单元格不再遍历，节省资源。如木有Exit For则代码一直运行到A10单元格才结束。
End If
Next
End Sub
-
GIF演示看这里
hhhhhhh.gif
