Resize属性用来扩大或者缩小单元格区域。它的左上角和原单元格区域的左上角相同，但行列数可以不同。
Range("d10:f20").Resize(1, 2).Select
-
Resize(1, 2)表示1行2列，这个代码选中的是图中绿色单元格区域，也就是D10:E10,行列都可以省略，但不能同时省略。
Range("a1").Resize(5, 4).Select '选中单元格A1:D5
Range("a1:B10").Resize(, 4).Select
'选中A1:D10,省略行，表示行数不变，省略列，表示列数不变。
练习:按部门筛选所有数据到F2单元格，以A部门为例子。
Sub hh()
Dim LastRow As Integer, k As Integer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row'动态单元格条数，A列最后非空行行号.
Range("f2:h600") = "" '每次操作清空原来的旧数据
k = 1
For i = 2 To LastRow
If Range("a" & i) = "A" Then
k = k + 1 '数据条数计数
Range("a" & i).Resize(1, 3).Copy Range("f" & k) '复制数据到F列
End If
Next
End Sub
结果
