Dim n壹樣長,I壹樣長
n = 100
n = Range(" a " & amp;行。數數)。結束(xlUp)。排
列(“C:C”)。插入Shift:= xlt right
對於i = 2至n
範圍(" c " & amp我)。公式= " = A " & amp我& amp" & amp& amp" B "和。我& amp" & amp& amp" D " & amp我
然後
末端接頭