Excel VBA中使用Range时,有一个Resize属性,以Range单元格为基准定位单元格区域。
1. 打开Visual Basic,添加模块和过程,称之为“单元格操作5”。
Sub 单元格操作5()
End Sub
2. 以A1单元格为基准,Resize的参数分别是行列的大小。
3. 添加Resize的参数,选中A1至D1四个单元格。
Sub 单元格操作5()
Range("A1").Resize(1, 4).Select
End Sub
4. 选中多行多列单元格区域。
Sub 单元格操作5()
Range("A1").Resize(5, 4).Select
End Sub
5. Resize应用的实例:以合并单元格为例,将两个单元格合并(如A2和A3)。
6. 添加一个for循环:从A2单元格开始,隔2递增。
Sub 单元格操作5()
Dim i As Integer
For i = 2 To 8 Step 2
Next
End Sub
7. 输入合并单元格的代码,合并的动作为Merge。
Sub 单元格操作5()
Dim i As Integer
For i = 2 To 8 Step 2
Range("A" & i).Resize(2, 1).Merge
Next
End Sub
8. 执行以上代码后,即可将编号下面的单元格两两合并。
以上示例只是用于演示,实际应用场景请根据自己的需要进行相应的设计或调整。