欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

今天我們來(lái)學(xué)習下resize這個(gè)方法，從字面意思理解就是重新確定尺寸。

我們來(lái)看一個(gè)實(shí)例：

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

1、resize

Sub 選擇區域()

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

End Sub

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

2、range

大家都知道，平常我們表示單元格，經(jīng)常用range。

Sub 選擇區域()

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

End Sub

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

Sub 選擇區域()

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

End Sub

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

知道了這個(gè)方法后，我們就可以實(shí)現篩選動(dòng)能，比如下面：

篩選A產(chǎn)品并放到以A11為起始的區域。

思路：

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

代碼如下：

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

今天的分享就到這里。

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