如何加行及將資料加總

waterfox

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

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

         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 之類... 但唔知點寫

waterfox

謝謝你們幫忙...

oobird

下載 (62.93 KB)

2011-1-19 10:47

hugh0620

回復 3# waterfox


    可以用樞紐~ 應該可以得到你要的結果~

waterfox

本人是需要結果如下

        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) ← 自動加一行

謝謝幫忙

oobird

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