excel VBA中的对象Range其它属性的使用方法和注意事项

上一章给大家分享了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

下面是对代码的简单解释：