ziv976688

回復 9# 准提部林
版主大大   : 您好 !
效率提高很多~同樣的檔案和同樣的環境(邊聽youtube的音樂和邊在桌面執行操作)，只耗時13秒
感謝您一直以來的熱心幫忙和耐心指導~受惠良多~感恩再感恩(鞠躬)~~~ ~~~~

ziv976688

回復 10# n7822123
n大 : 您好!
對小弟而言，您願意幫忙和指導~我已經是感激不盡了
您的考量是正確的~您的程式碼對小弟也是太高深~小弟一般是有看沒有懂，還好您常有加註解，對小弟幫助很大(例如:改為539的格式，到目前為止，都沒有遇到困難)

再次感謝您長期以來的熱心幫忙和耐心指導~惠我良多~感恩再感恩(鞠躬)~~~ ~~~~~

ziv976688

回復 11# ziv976688
Sorry~有筆誤~13秒改為33秒
效率提高37%

jackyq

回復 13# ziv976688


這程式你自己在用的歐

loto無解  最終就是走向參數孤島

用玄學會比較有準? 你有比較過嗎

ziv976688

回復 14# jackyq
見笑了!只是對統計學有興趣，所以利用"概率"來研究樂透罷了!
這個版路是不出牌用的~目前的紀錄是連續36期沒有破版。
玄學完全不懂~哈~哈~

ziv976688

回復 9# 准提部林
測試檔 : 新增資料夾.rar (152.36 KB)

下載次數: 2

2021-1-16 08:17

版主大大 : 您好!
不好意思，如果將
公式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列))
~~~
~~~

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

准提部林

回復 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

ziv976688

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