Excel VBA中使用Range時，有一個Resize屬性，以Range單元格為基準(zhǔn)定位單元格區(qū)域。
1. 打開Visual Basic，添加模塊和過程，稱之為“單元格操作5”。
Sub 單元格操作5()
End Sub
2. 以A1單元格為基準(zhǔn)，Resize的參數(shù)分別是行列的大小。
3. 添加Resize的參數(shù)，選中A1至D1四個單元格。
Sub 單元格操作5()
Range("A1").Resize(1, 4).Select
End Sub
4. 選中多行多列單元格區(qū)域。
Sub 單元格操作5()
Range("A1").Resize(5, 4).Select
End Sub
5. Resize應(yīng)用的實例：以合并單元格為例，將兩個單元格合并（如A2和A3）。
6. 添加一個for循環(huán)：從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. 執(zhí)行以上代碼后，即可將編號下面的單元格兩兩合并。
以上示例只是用于演示，實際應(yīng)用場景請根據(jù)自己的需要進(jìn)行相應(yīng)的設(shè)計或調(diào)整。
