10、[VBA入门到放弃笔记] Resize属性

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

结果

---