[算表] 加總vba

[runaway580 (讓個位)]

軟體:excel 2017

大家好
目前碰到此問題

    A    B
1  文字  5
2        3
3        2
4        6
5        3
6  文字  7
7        5
8  文字  4
9        2

我用vba在另外的儲存格 輸出成
sum(B1:B5)
sum(B6:B7)
sum(B8:B9) [B欄sum的範圍 隨A欄 文字和下一個文字 而改變]

方面是先計算A欄有幾格文字,然後用迴圈,代入第一個文字的範圍,
用end(xldown)跳下一格,依此類推
可是發現如果文字相鄰中間沒有空格的話 end(xldown)就不適用
offset(1,0)這用法也不適用

有比較適合的寫法嗎QQ

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.170.170.59
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1492844271.A.760.html
→ heavendemon: 文字都部分有重複嗎? 沒有的話我會先讓文字欄向下填
→ heavendemon: 滿 然後用simif加總B欄位的值
→ soyoso: 有函數sumif，並無simif
→ heavendemon: 抱歉 筆誤 謝謝so大提醒
→ runaway580: 文字不重複 怎麼用vba向下填滿QQ
→ soyoso: 如果要於a欄填入的話，range.specialcells空白，指定到如
→ soyoso: 原文來看的話為"=a1"
→ soyoso: 如要顯示a欄和加總的話，也可用樞紐分析表
推 ptguitar: 我弄過類似的 用錄製巨集 ctrl+G 選空白 =a1 填滿
→ ptguitar: 大概就soyoso大大類似的方法