今天我們來學習下resize這個方法，從字面意思理解就是重新確定尺寸。

我們來看一個實例：

以A3單元格為參照，選定A3到C5，怎么操作？

1、resize

Sub 選擇區(qū)域()

Range('a3').Resize(3, 3).Select

End Sub

Range('a3').Resize(3, 3).Select，其實就是以某個單元格為起始位置，選擇幾行幾列，跟前面章節(jié)講的偏移是一個道理，重新選擇時行列包含了起始行和列。

2、range

大家都知道，平常我們表示單元格，經常用range。

Sub 選擇區(qū)域()

Range('a3').Range('a1:c3').Select

End Sub

跟上面的效果一樣的，這個是在的基礎上，把Range('a3')作為A1單元格，重新指定區(qū)域。

Sub 選擇區(qū)域()

Range('a3').EntireRow.Range('a1:c3').Select

End Sub

先獲取Range('a3')所在的行，以此行為第一行，重新指定區(qū)域。

知道了這個方法后，我們就可以實現(xiàn)篩選動能，比如下面：

篩選A產品并放到以A11為起始的區(qū)域。

思路：

把列標題區(qū)域[a1：d1]直接賦給[a11：d11]，循環(huán)產品列中的單元格，若其值等于產品A，那么以該單元格為參照，重新選定該行內容，把值依次賦給下面尺寸相同的區(qū)域。

代碼如下：

Sub 篩選()

Dim rng As Range, n%

[a11:d11] = [a1:d1].Value

For Each rng In [a2:a8]

    If rng.Value = 'A' Then

    n = n + 1

    Cells(n + 11, 'a').Resize(1, 4) = rng.Resize(1, 4).Value

    End If

Next rng

End Sub

當然，Cells(n + 11, 'a').Resize(1, 4) = rng.Resize(1, 4).Value也可以表達成：

Cells(n + 11, 'a').Resize(1, 4) = rng.EntireRow.Range('a1:d1').Value

Cells(n + 11, 'a').Resize(1, 4) = rng.Range('a1:d1').Value

今天的分享就到這里。

視頻教程正在陸續(xù)錄制中(目前錄制了十八節(jié)了)，需要的同學可以加我微信號：527240310，50元，一次付費后，以后所錄視頻均可以免費索取，而且不懂的地方可以交流。非誠勿擾，謝謝配合！