Resize屬性用來(lái)擴(kuò)大或者縮小單元格區(qū)域。它的左上角和原單元格區(qū)域的左上角相同，但行列數(shù)可以不同。

Range("d10:f20").Resize(1, 2).Select

• Resize(1, 2)表示1行2列，這個(gè)代碼選中的是圖中綠色單元格區(qū)域，也就是D10:E10,行列都可以省略，但不能同時(shí)省略。

  
  

 Range("a1").Resize(5, 4).Select '選中單元格A1:D5

Range("a1:B10").Resize(, 4).Select 
'選中A1:D10,省略行，表示行數(shù)不變，省略列，表示列數(shù)不變。

練習(xí):按部門(mén)篩選所有數(shù)據(jù)到F2單元格，以A部門(mén)為例子。

Sub hh()
    Dim LastRow As Integer, k As Integer
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row'動(dòng)態(tài)單元格條數(shù)，A列最后非空行行號(hào).
    Range("f2:h600") = "" '每次操作清空原來(lái)的舊數(shù)據(jù)
    k = 1
    For i = 2 To LastRow
        If Range("a" & i) = "A" Then
            k = k + 1 '數(shù)據(jù)條數(shù)計(jì)數(shù)
            Range("a" & i).Resize(1, 3).Copy Range("f" & k) '復(fù)制數(shù)據(jù)到F列
        End If
    Next
End Sub

結(jié)果