最佳答案1. 属性Resize该怎么使用？Resize的属性的主要作用就是对指定的单元格进行放大或者缩小单元格区域，注意：Resize一共有两个参数，第一个参数表示行数，第二个参数表示列数。代码1：Sub test()Worksheets(“sheet1”).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
下面是对代码的简单解释：
