第二個問題是VBA。
Sub addStr()
C = InputBox("請輸入要操作的列號:A=1，B=2，C=3 ... ")
R = InputBox("請輸入起始行號:")
c = Val(c)
r = Val(r)
對於i = r到1000000 '
如果最後壹列有數據。
If單元格(I，c+1)& lt；& gt”“那麽
如果此列的內容為空。
如果單元格(I，c) = "，則
充滿了上行內容。
單元格(I，c) =舊
其他
否則，更改old的值並轉到下壹行。
舊=單元格(I，c)
如果…就會結束
其他
結束'如果右欄沒有數據，停止運行。
如果…就會結束
然後
末端接頭