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 
結果
作者：葉知行
鏈接：https://www.jianshu.com/p/bb41788ad5e3
來源：簡書
著作權歸作者所有。商業轉載請聯系作者獲得授權，非商業轉載請注明出處。