我這有一個(gè)EXCEL表格,如果D列非空白,則將公式1填到L列,將公式2填到M列。這個(gè)我想通過(guò)VBA實(shí)現(xiàn)
發(fā)布時(shí)間:2016-12-21 08:02
編輯:創(chuàng)大鋼鐵
來(lái)源:
126
數(shù)組公式?jīng)]法通過(guò)VBA直接寫(xiě)入,只能在L2和M2提前寫(xiě)好公式,復(fù)制這兩個(gè)單元格的公式For i = 3 To [D1048576].End(xlUp).RowIf Ran
數(shù)組公式?jīng)]法通過(guò)VBA直接寫(xiě)入,只能在L2和M2提前寫(xiě)好公式,復(fù)制這兩個(gè)單元格的公式For i = 3 To [D1048576].End(xlUp).Row If Range("D" & i) <> "" Then [L2].Copy Range("L" & i).PasteSpecial [M2].Copy Range("M" & i).PasteSpecial End If Next要么是完全用VBA來(lái)代替公式計(jì)算,直接把結(jié)果寫(xiě)入對(duì)應(yīng)單元格
用公式能解決的事情不要用VBA,VBA必須每次運(yùn)行才出結(jié)果,麻煩。
備注:數(shù)據(jù)僅供參考,不作為投資依據(jù)。
免責(zé)聲明:本站發(fā)布此文目的在于促進(jìn)信息交流,不存在盈利性目的,此文觀點(diǎn)與本站立場(chǎng)無(wú)關(guān),不承擔(dān)任何責(zé)任。本站歡迎各方(自)媒體、機(jī)構(gòu)轉(zhuǎn)載引用我們文章(文章注明原創(chuàng)的內(nèi)容,未經(jīng)本站允許不得轉(zhuǎn)載),但要嚴(yán)格注明來(lái)源創(chuàng)大鋼鐵;部分內(nèi)容文章及圖片來(lái)自互聯(lián)網(wǎng)或自媒體,我們尊重作者版權(quán),版權(quán)歸屬于原作者,不保證該信息(包括但不限于文字、圖片、視頻、圖表及數(shù)據(jù))的準(zhǔn)確性、真實(shí)性、完整性、有效性、及時(shí)性、原創(chuàng)性等。未經(jīng)證實(shí)的信息僅供參考,不做任何投資和交易根據(jù),據(jù)此操作風(fēng)險(xiǎn)自擔(dān)。