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

測試檔︰

引用A工作表值的公式語法.rar (179.22 KB)
想將A工作表的B2:S51，V2:AM51，AP2:BG51，BJ2:CA51的公式值，
以公式A，公式B，公式C，公式D等4個模組內的公式值，
各貼上B105:AX122；B155:AX172；B205:AX222；B255:AX272(四個區段各18列)。
請詳見︰(2021-01-05)_效果檔

請問︰
公式A，公式B，公式C，公式D等4個模組內的語法，應該如何編寫？
謝謝！

PS︰有預留1個CSV檔以利測試用。

樓主熱帖

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

18^#

發表於 2021-1-16 16:04 | 只看該作者

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

17^#

發表於 2021-1-16 11:29 | 只看該作者

回復 16# ziv976688

Sub DATA檔_AAA表_公式()
Dim AAA_Fx$(4), xR As Range, N%, xArea
AAA_Fx(1) = "=SMALL(IF(INDEX(A!$B$2:$S$51,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1))"
AAA_Fx(2) = "=SMALL(IF(INDEX(A!$V$2:$AM$51,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1))"
AAA_Fx(3) = "=SMALL(IF(INDEX(A!$AP$2:$BG$9,,ROW($A1))="""",A!$A$2:$A$9),COLUMN(A$1))"
AAA_Fx(4) = "=SMALL(IF(INDEX(A!$BJ$2:$CA$9,,ROW($A1))="""",A!$A$2:$A$9),COLUMN(A$1))"
For Each xR In Sheets("AAA").Range("B2,B52, B102, B152")
N = N + 1
xR.FormulaArray = AAA_Fx(N)
xR.Copy xR(1, 2).Resize(1, 48)
xR.Resize(1, 49).Copy xR(2, 1).Resize(17, 49)
With xR.Resize(18, 49)
.Value = .Value
.Replace "#*", "", lookat:=xlWhole
End With
Next
End Sub

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

16^#

發表於 2021-1-16 08:17 | 只看該作者

本帖最後由 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

ziv976688