上一章給大家分享了Range對(duì)象得offset屬性得使用和注意事項(xiàng)以及舉例說明，同時(shí)還介紹了一個(gè)Worksheet對(duì)象得屬性Cells得屬性得使用，今天繼續(xù)給大家分享一下關(guān)于Range對(duì)象得其他屬性，以及這些屬性得注意事項(xiàng)。

1. 屬性Resize該怎么使用？

Resize得屬性得主要作用就是對(duì)指定得單元格進(jìn)行放大或者縮小單元格區(qū)域，

注意：Resize一共有兩個(gè)參數(shù)，第壹個(gè)參數(shù)表示行數(shù)，第二個(gè)參數(shù)表示列數(shù)。

代碼1：

Sub test()

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

End Sub

下面對(duì)代碼簡(jiǎn)單說明

下面得代碼就是縮小選擇區(qū)域：

代碼2：

Sub test()

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

End Sub

2.Range對(duì)象得CurretRegion得屬性

CurretRegion得作用就是返回當(dāng)前區(qū)域是空白行和空白列得任何組合所限定得區(qū)域，

代碼3：

Sub test()

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

End Sub

執(zhí)行結(jié)果：

如果說想要選中空格一下得數(shù)據(jù)怎么辦，這里面給大家介紹一個(gè)Worksheet對(duì)象中得一個(gè)屬性UsedRange得使用就可以解決。

如果我們有一個(gè)需求就是在已經(jīng)含有數(shù)據(jù)得單元格中得挨著得位置輸入數(shù)據(jù)該怎么解決呢？

在解決這個(gè)問題之前我們介紹一個(gè)比較實(shí)用得屬性end。

End屬性一共有四個(gè)可選參數(shù)：

?x1Up 表示向上移動(dòng)

?x1Down 表示向下移動(dòng)

?x1ToLeft 表示向左移動(dòng)

?x1ToRight表示向右移動(dòng)

下面通過一個(gè)示例來說明

代碼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

下面是對(duì)代碼得簡(jiǎn)單解釋：

喜歡得請(qǐng)我，謝謝！ 今天就先分享到這里，明天繼續(xù)分享。