請某人幫助我得到壹個尋呼總數的VBA程序。

i = 4

10表示k = 1至10

對於j = i到i + 10

如果單元格(j，1) = " "則結束

If單元格(j，1)& lt；& gt單元格(j + 1，1)則

行(j + 1)。插入

單元格(j+1，1) = "小計劃"

範圍(單元格(I，5)，單元格(j + 1，5))。挑選

單元格(j + 1，5)。使活動

ActiveCell。formula 1c 1 = " = SUM(R[-" & amp；j-I+1 & amp；"]C:R[-1]C)"

範圍(單元格(I，7)，單元格(j + 1，7))。挑選

單元格(j + 1，7)。使活動

ActiveCell。formula 1c 1 = " = SUM(R[-" & amp；j-I+1 & amp；"]C:R[-1]C)"

轉到20

如果…就會結束

然後

行(j + 1)。插入

單元格(j+1，1) = "小計劃"

範圍(單元格(I，5)，單元格(j + 1，5))。挑選

單元格(j + 1，5)。使活動

ActiveCell。formula 1c 1 = " = SUM(R[-" & amp；j-I+1 & amp；"]C:R[-1]C)"

範圍(單元格(I，7)，單元格(j + 1，7))。挑選

單元格(j + 1，7)。使活動

ActiveCell。formula 1c 1 = " = SUM(R[-" & amp；j-I+1 & amp；"]C:R[-1]C)"

20 i = j + 2

然後

末端接頭