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

Andy2483

各位前輩好
請教 公式_跳欄並且符合條件才加總
1.加總格AC13
2.從AG13開始跳4欄相加至最後欄位
2.1.當欄的第10列儲存格不以"前置" 開頭
2.2.以迴圈執行的迴圈範例如下
謝謝指導

Sub 迴圈範例()
Dim i&
[AC13] = 0
For i = 33 To 256 Step 4
   If Cells(10, i) Like "前置*" = False Then
      [AC13] = [AC13] + Cells(13, i)
   End If
Next
End Sub
'AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)

Andy2483

回復 2# 准提部林


    謝謝前輩提醒
上傳範例

Andy2483

回復 2# 准提部林


    上傳失敗!
疑似限制上傳 回家再處裡
謝謝指導

Andy2483

手機試上傳範例檔

Andy2483

回復 2# 准提部林
前輩好
手機完成範例上傳

Andy2483

回復 7# 准提部林

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

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

Andy2483

回復 9# 准提部林


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

Andy2483

回復 9# 准提部林


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

Andy2483

回復 15# 准提部林


還沒有用PC測試
以結果反推裡面程碼的意義 大概了解
1.兩個容器 Arr裝原來的資料 Brr裝回圈的結果
UBound(Arr）是指Arr的縱向陣列數
UBound(Arr, 2）是指Arr的橫向陣列數
2. Arr = Range(Cells(R, "AG"), Cells(10, C))是反對角定義範圍嗎？
沒看過 就慌了
謝謝指導
明早出差 撥空繼續研習 還有公式版呢 真期待

Andy2483

回復 9# 准提部林


前輩的迴圈比較難 ,換個角度比較看得懂
可能跟心境有關吧
您無私的把懂的傳授給我們 成就我們
Andy只懂得接受前輩的指導 增長自己
謝謝
For k = 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
        Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
j01: Next j
Next i
Next k