- 帖子
- 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列))
~~~
~~~
請問 :
其它相關的程式碼要如何再修正?
敬請您賜正，
謝謝您^^ |
|
發表於 2021-1-16 11:29
| 