因每次資料篩選後的"列數不同" ,拿資料篩選後第一格儲存格位於第八列當舉例,我在M欄的第8列使用下列語法 已經填好公式,但要向下填滿但試過很多種語法都不行 以下是將M8填入公式的語法,如不清楚在跟我說,再麻煩大家幫忙~謝謝
以下語法是針對資料篩選後的M8填入公式
j = Rows("2:3000").SpecialCells(12).Row
Range("M2:M" & j) = "=RC[-12]&""-""&MID(RC[-9],1,2)"
試試看可不可用
j = Rows("2:3000").SpecialCells(12).Row
Range("M2").Select
ActiveCell.FormulaR1C1 = "=RC[-12]&""-""&MID(RC[-9],1,2)"
Range("M2:M" & j).Select
Selection.FillDown