返回列表 上一主題 發帖

[發問] 引用A工作表值的公式語法

本帖最後由 ziv976688 於 2021-1-16 08:23 編輯

回復 9# 准提部林
測試檔 : 新增資料夾.rar (152.36 KB)
版主大大 : 您好!
不好意思,如果將
公式A_D模組
Sub DATA檔_AAA表_公式()
Dim AAA_Fx$, xR As Range, N%, xArea
AAA_Fx = "=IF(COLUMN(A$1)>SUM(N(INDEX(A!區域,,ROW($A1))="""")),"""",SMALL(IF(INDEX(A!區域,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1)))"
xArea = Array("", "$B$2:$S$51", "$V$2:$AM$51", "$AP$2:$BG$51", "$BJ$2:$CA$51")   '列4
For Each xR In Sheets("AAA").Range("B2,B52, B102, B152")
    N = N + 1
    xR.FormulaArray = Replace(AAA_Fx, "區域", xArea(N))
    xR.Copy xR(1, 2).Resize(1, 48)
    xR.Resize(1, 49).Copy xR(2, 1).Resize(17, 49)
    xR.Resize(18, 49).Value = xR.Resize(18, 49).Value
Next
End Sub
改為
~~~
~~~
xArea = Array("", "$B$2:$S$51", "$V$2:$AM$51", "$AP$2:$BG$9", "$BJ$2:$CA$9")   '列5
(因為了搜尋儲存格=""時,沒有影響,但如果是要搜尋儲存格<>""或其它值時,會影響到最終的答案,所以這2個範圍必須要調整為實際的計算列(8列))
~~~
~~~

請問 :
其它相關的程式碼要如何再修正?
敬請您賜正,
謝謝您^^

TOP

回復 17# 准提部林
版主大大   : 您好 !
謝謝您的耐心指導~感恩(鞠躬)

TOP

        靜思自在 : 知識要用心體會,才能變成自己的智慧。
返回列表 上一主題