返回列表下一主題上一主題發帖

不固定位置設定加總公式

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2024-3-2

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-18 16:07 | 只看該作者

不固定位置設定加總公式

需要將右側及下方總計的部分設定為公式，資料量不固定，請問巨集要如何撰寫?

Excel問題-20210718.rar (11.71 KB)

樓主熱帖

Adam

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2021-7-18 18:48 | 只看該作者

本帖最後由 n7822123 於 2021-7-18 18:57 編輯

回復 1# adam2010

試試~紅色部分會隨著你的固定欄列的數目而變化

Sub Test()
Rn& = [A2].End(4).Row
Cn& = [A2].End(2).Column
Cells(3, Cn).Resize(Rn - 3) = "=Sum(RC[" & 8 - Cn & "]:RC[-1])"
Cells(Rn, "H").Resize(, Cn - 7) = "=Sum(R[" & 3 - Rn & "]C:R[-1]C)"
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

samwang