上一章給大家分享了關於Range物件的一些屬性，包括這些屬性的舉例說明，今天繼續給大家分享一下關於Range物件的具體操作。

舉個例子假如你面前有一碗白米飯，那麼單元格就相當於是這個大碗，Value就是裝在這個大碗中的白米飯。

程式碼1：

Sub test()

Worksheets("sheet2").Range("B2").Value = "你好"

Worksheets("sheet2").Range("B4") = "你好"

End Sub

注意：Value是Range物件的預設屬性可以省略。

1.怎麼統計單元格的個數，行數、列數？

需要統計單元格的個數的時候需要使用到Count這個屬性。

注意：我這裡面在複習一下前面分享的UsedRange的作用（表示工作表中已經使用的單元格區域）

最終的結果如下：

下面簡單地解釋以下程式碼：

程式碼2：

Sub test()

Dim i As Integer, j As Integer, k As Integer, j1 As Integer, k1 As Integer

i = Worksheets("sheet2").Range("A1:G10").Count

j = Worksheets("sheet2").Range("A1:G10").Rows.Count

k = Worksheets("sheet2").Range("A1:G10").Columns.Count

j1 = Worksheets("sheet2").UsedRange.Rows.Count

k1 = Worksheets("sheet2").UsedRange.Columns.Count

Worksheets("sheet2").Range("H4") = i

Worksheets("sheet2").Range("H5") = j

Worksheets("sheet2").Range("H6") = k

Worksheets("sheet2").Range("I5") = j1

Worksheets("sheet2").Range("I6") = k1

End Sub

2.怎麼獲取單元的當前地址？

獲取地址需要使用屬性Address

程式碼：

Sub test()

Dim i As Variant

Dim j As Range

Set j = Worksheets("sheet2").Range("B2")

i = j.Address

Worksheets("sheet2").Range(i).Value = "往往往往"

End Sub

下面解釋一下程式碼：

最佳化後的程式碼：

程式碼：

Sub test()

Dim i As Variant

i = Worksheets("sheet2").Range("B2").Address

Worksheets("sheet2").Range(i).Value = "1111往往往往"

End Sub

3.單元格的複製Copy

基本格式：要複製的單元格.copy 目標單元格（複製的值要寫進去的單元格）

程式碼：

Sub test()

Worksheets("sheet2").Range("B3").Copy Worksheets("sheet2").Range("A9")

End Sub

注意：如果複製的單元格區域大於目標單元格的區域時，目標單元格可以只寫最開始的第一個單元格。

4.剪下單元格要使用Range物件的Cut方法

程式碼：

Sub test()

Worksheets("sheet2").Range("B3:B5").Cut Worksheets("sheet2").Range("A3")

End Sub

程式碼：

Sub test()

Worksheets("sheet2").Range("B3").Delete

Worksheets("sheet2").Range("B3").EntireRow.Delete

Worksheets("sheet2").Range("B3").EntireColumn.Delete

End Sub