Excel VBA系列之单元格方法Resize

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. 执行以上代码后，即可将编号下面的单元格两两合并。

以上示例只是用于演示，实际应用场景请根据自己的需要进行相应的设计或调整。

参考视频：Excel VBA系列之单元格的属性-Resize - 知乎