請教公式_跳欄並且符合條件才加總

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

13^# 跳轉到 »

發表於 2020-8-24 17:16 | 只看該作者

本帖最後由准提部林於 2020-8-24 18:44 編輯

不然用公式??
AC13:
=SUMIF($AG$10:$GW$10,"*",AG13:GW13)-SUMIF($AG$10:$GW$10,"前置*",AG13:GW13)
或
=SUMPRODUCT(--(LEFT($AG$10:$GW$10&"前置",2)<>"前置"),AG13:GW13)

右拉3格, 下拉

計算位址右拉時, 是移位的, 自行參酌~~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

12^#

發表於 2020-8-24 17:13 | 只看該作者

回復 11# Andy2483

Dim Arr, Brr, R&, C&, i&, j&, k%, xArea As Range
R = Cells(Rows.Count, "d").End(xlUp).Row
MsgBox R & "(D欄最後一行)"
C = Cells(12, Columns.Count).End(xlToLeft).Column
MsgBox C & "(最右一欄)--位址:" & Cells(12, C).Address
Set xArea = Range(Cells(R, "AG"), Cells(10, C))
MsgBox "資料範圍:" & xArea.Address
'Arr = Range(Cells(R, "AG"), Cells(

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

11^#

發表於 2020-8-24 16:35 | 只看該作者

回復 9# 准提部林

Arr = Range(Cells(R, "AG"), Cells(10, C))
這行是設定資料範圍! 不懂
Cells(R, "AG") 是10
Cells(10, C) 是0
Arr = Range(10, 0)
為什麼??
請再指導

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

10^#

發表於 2020-8-24 15:54 | 只看該作者

回復 9# 准提部林

謝謝前輩指導
1.這陣列方法只懂皮毛,也需要學習! 我會藉這帖學會他
2.原本想法是用VBA下公式在AC欄下刷得到加總值
2.1.定義資料範圍 AG10:??? :是認為下公式加到最後IV欄空格也不影響,而且欄位增減機率很高
2.2.用下公式的方法也不簡單
謝謝指導

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

9^#

發表於 2020-8-24 15:38 | 只看該作者

回復 8# Andy2483

有看到隱藏欄,
Sub TEST()
Dim Arr, Brr, R&, C&, i&, j&, k%
R = Cells(Rows.Count, "d").End(xlUp).Row '最後一行
C = Cells(12, Columns.Count).End(xlToLeft).Column '最後一欄
Arr = Range(Cells(R, "AG"), Cells(10, C)) '定義資料範圍 AG10:???
ReDim Brr(1 To UBound(Arr) - 3, 1 To 3) '設空陣列
For i = 4 To UBound(Arr)
For j = 1 To UBound(Arr, 2) Step 4
If Left(Arr(1, j), 2) = "前置" Then GoTo j01
For k = 1 To 3
Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
Next k
j01: Next j
Next i
[AC13].Resize(UBound(Brr), 3) = Brr
End Sub

'===================================

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

8^#

發表於 2020-8-24 15:37 | 只看該作者

回復 7# 准提部林

1. If Left(Cells(10, i), 2) <> "前置" Then
是! 但是不知如何加到下列公式裡,或其他方法
AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)

2.每3欄為一個群組, STEP 3 才對吧!
對不起! 有一欄是備用欄隱藏起來了

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林