如何加行及將資料加總

請問各位, 本人有一個研究了很久的問題未能解決... 希望各位能幫幫忙碌

本人需要將所有同一個編號的數字加總, 如下午

      A             B
      number amount
1    123       $981
2    123       $451
3    123       $657
4    123       $891
5    124       $541
6    124       $321
7    125       $254
8    126       $986
9    126       $654
10    126       $666
11    127       $456
12    128       $444

如是者至幾百行，但我需要將同一編號的加總，於是需要在中間加一行，並加總... 但本人嘗試很欠都不成功.. 大致如下午

temp_data = sheets("編號").usedrange

for i = 1 to ubound(temp_data)
if range("A" & i) <> range("A" & i + 1) then rows(i +1).insert
for j = 1 to ubound(temp_data)
   if range("A" & j) <> range("A" & j + 1) then
         myrow = j
         exit for
   end if
   next j
   range("B" & i +1).formula = ="sum(R[-1]:R" & myrow &")"
end if
next i

但係不成功.... 中間可以加行, 但不能識別SUMUP由那一行加至那一行...本人是新手一名... 請各位多多幫忙..

本人曾經想用 do until ..... loop 之類... 但唔知點寫

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-1-19 08:59 | 只看該作者

這個可用資料~小計功能
沒必要寫程式的。

TOP

waterfox

小學生 Rank: 1

帖子: 28
主題: 13
精華: 0
積分: 43
點名: 0
作業系統: window
軟體版本: office 2000
閱讀權限: 10
性別: 女
來自: Hong Kong
註冊時間: 2011-1-14
最後登錄: 2021-8-27

3^#

發表於 2011-1-19 10:06 | 只看該作者

本人是需要結果如下

      A             B
      number amount
1    123       $981
2    123       $451
3    123       $657
4    123       $891
                     sum(B1:B4) ← 自動加一行
5    124       $541
6    124       $321
                     sum(B5:b6) ← 自動加一行
7    125       $254
                     sum(B7:b7) ← 自動加一行
8    126       $986
9    126       $654
10    126       $666
                     sum(B8:b10) ← 自動加一行
11    127       $456
                     sum(B11:b11) ← 自動加一行
12    128       $444
                     sum(B12:b12) ← 自動加一行

謝謝幫忙

TOP

hugh0620