Excel 2007 VBA代碼編輯

範圍(“K2”)。挑選

活躍細胞。formula 1c 1 = " = vlookup(RC[-5])，單價！C[-10]:C[-7]，4)，"

選擇。自動填充目標:= Range(" K2:K " & amp；[f1]。結束(4)。行)，類型:=xlFillDefault

範圍(“L2”)。挑選

ActiveCell。formula 1c 1 = " = RC[-2]* RC[-1]"

選擇。自動填充目標:= Range(" L2:L " & amp；[j1]。結束(4)。行)，類型:=xlFillDefault

結束子錄制+修改就可以了。

主要是【f1】。結束(4)。Row，意思是從F1中獲取最後壹個非空行。

子宏1()

範圍(“K2”)。挑選

ActiveCell。formula 1c 1 = " = VLOOKUP(RC[-5]，C[-10]:C[-7]，4)，"

選擇。自動填充目標:= Range(" K2:K " & amp；[f1]。結束(4)。行)，類型:=xlFillDefault

範圍(“L2”)。挑選

ActiveCell。formula 1c 1 = " = RC[-2]* RC[-1]"

選擇。自動填充目標:= Range(" L2:L " & amp；[j1]。結束(4)。行)，類型:=xlFillDefault

末端接頭