ExcelVBA 對篩選后的結(jié)果列填充
網(wǎng)友提問:



回答網(wǎng)友問題:
我做個(gè)簡單的表,描述一下這個(gè)意思

網(wǎng)友需要篩選科目為語文的,別名寫國語

當(dāng)然我們可以使用For循環(huán)或Do While循環(huán)判斷,科目="語文" 時(shí) 別名="國語"
方法我提供給你,但是這不是今天要說的,因?yàn)槟囊?,我不能所問非所答?/p>
先提供For循環(huán)的
再提供Do While循環(huán)的
但是這不是您要的答案,我相信您學(xué)到了AutoFilter肯定會(huì)寫這兩種循環(huán)。
但是解決您的需求,要從Excel基礎(chǔ)篇講起。
我們講過,篩選后的填充方法
我們手工的篩選科目=語文的

然后手工選中B2到B6

在公式欄上輸入? ="國語"

然后按 Ctrl+Enter 組合鍵

填充完成,取消篩選后可以看到結(jié)果

把我剛才說的這幾步,通過錄宏,得到代碼

我們可以用大膽假設(shè),小心求證的方法來驗(yàn)證,把Range("B2:B6") 改成?Range("B2:B7") 結(jié)果是一樣的,所以我們得出結(jié)論,就是B列第2行到最大行這個(gè)區(qū)域。
大膽假設(shè),小心求證? 是董宇輝老師在直播時(shí)告訴我們的,我特別喜歡他們那個(gè)機(jī)構(gòu),要說賣英語課,人家的機(jī)構(gòu)是國內(nèi)一哥,但是在轉(zhuǎn)型的時(shí)候,人家?guī)娃r(nóng)民伯伯賣農(nóng)作物,而不是教農(nóng)民伯伯學(xué)英語,他們完全可以像某些講師一樣,拿科學(xué)家出來舉例,但是,人家沒那么做。他們明白,農(nóng)民伯伯把種出來的東西賣出去才是對他們最大的幫助。
所以哈羅雷球白夕尚等等數(shù)百名讓我學(xué)英語的講師,應(yīng)該自我反省。
有了董老師的神助攻,我們的代碼也出來了
知道工作表最大行的行號(hào),篩選第3列的語文,對B2到B列最大行選中,輸入公式,取消篩選

這題雖不是說必須會(huì)Excel基礎(chǔ)才能做,只是按您需求做答。

之后網(wǎng)友反饋錄的那行代碼在他的電腦上不能運(yùn)行 ,我猜測是軟件版本問題
于是我在Excel2003上錄制了代碼

修改后,既可以在Excel2003~2021? 也可以在office365的Excel上通用

Excel基礎(chǔ)篇:https://www.bilibili.com/video/BV1Z7411c7U6
ExcelVBA教程:https://www.bilibili.com/video/BV1rt4y1a72y