上一章給大家分享了Range物件的offset屬性的使用和注意事項以及舉例說明，同時還介紹了一個Worksheet物件的屬性Cells的屬性的使用，今天繼續給大家分享一下關於Range物件的其他屬性，以及這些屬性的注意事項。

1. 屬性Resize該怎麼使用？

Resize的屬性的主要作用就是對指定的單元格進行放大或者縮小單元格區域，

注意：Resize一共有兩個引數，第一個引數表示行數，第二個引數表示列數。

程式碼1：

Sub test()

Worksheets("sheet1").Range("B2").Resize(2, 3).Select

End Sub

下面對程式碼簡單說明

下面的程式碼就是縮小選擇區域：

程式碼2：

Sub test()

Worksheets("sheet1").Range("B2:D7").Resize(2, 2).Select

End Sub

2.Range物件的CurretRegion的屬性

CurretRegion的作用就是返回當前區域是空白行和空白列的任何組合所限定的區域，

程式碼3：

Sub test()

Worksheets("sheet1").Range("B2:D13").CurrentRegion.Select

End Sub

執行結果：

如果說想要選中空格一下的資料怎麼辦，這裡面給大家介紹一個Worksheet物件中的一個屬性UsedRange的使用就可以解決。

如果我們有一個需求就是在已經含有資料的單元格中的挨著的位置輸入資料該怎麼解決呢？

在解決這個問題之前我們介紹一個比較實用的屬性end。

End屬性一共有四個可選引數：

❶x1Up 表示向上移動

❷x1Down 表示向下移動

❸x1ToLeft 表示向左移動

❹x1ToRight表示向右移動

下面透過一個示例說明

程式碼2：Sub test()

Dim i As Range, h As Integer, f As Integer

Dim j As Integer

Dim k(1 To 7) As Variant

For h = 1 To 7

k(h) = Worksheets("sheet1").Cells(7, h)

Next

Set i = Worksheets("sheet1").Range("A65536").End(xlUp)

If i.Value <> "" Then

Set i = i.Offset(1, 0)

End If

i.Value = 8

For j = 1 To 6

Worksheets("sheet1").Range(i.Address).Offset(0, j).Value = k(j + 1)

Next

End Sub

下面是對程式碼的簡單解釋：

喜歡的請關注我，謝謝！ 今天就先分享到這裡，明天繼續分享。