ziv976688

回復 42# n7822123
已修正~
修正後執行正常(不到2秒)
謝謝您的指導和幫忙~感恩

ML089

回復 50# ziv976688

了解，數字若是0~48就沒有問題
因為之前寫公式有問過你，數字是否控制在99以下，所以有點誤會。

ziv976688

回復 52# ML089
版主 :
感謝您的關心
那時候~是提問A4:A52=D2:J26的餘數各取1
您要確定A欄是否為最多是2位數的整數?

沒有您耐心的幫我將程式碼流程全部重新整理，
我是無法順利完成本次各分拆項的問題需求~感恩

ziv976688

回復 13# n7822123
請教您 :
列9 餘數 = (Arr(1)(R, C) + Num - 1) Mod 49 + 1  '加算Mod(M2+V2,49)

如果將貴程式碼改為減算，並將其差值轉為絕對值，使其都為正數
餘數 = (Abs(Arr(1)(R, C) - Num) - 1) Mod 49 + 1    '減算Mod(ABS(M2-V2),49)
但這樣改~會有一個小Bug : 當餘數=0 時，不會自動轉為49
必須再加  If 餘數 = 0 Then 餘數 = 49

請問 :以貴原程式碼要將差值改為絕對值的正確語法 ?
謝謝您

ziv976688

回復 37# ML089
餘數各取1_0729.rar (100.88 KB)

下載次數: 2

2021-7-29 03:42

版主 :
不好意思，又有一個小Bug~
準5進6!A4=""
A4應該=46 。
懇請您賜正~謝謝您

ML089

回復 55# ziv976688

真不好意思，小BUG不斷。
Sub 餘數各取1()
    Dim xD As Object, xS As Worksheet, xR As Range, SP, N
    Set xD = CreateObject("Scripting.Dictionary")
   
    For Each xS In Sheets(Split("準2進3 準3進4 準4進5 準5進6 準6進7 準7進8"))    '取表格
        For Each xR In xS.Range("D2:J" & xS.[B65536].End(xlUp).Row)    '取儲存格
            For Each SP In Split(xR, ",")    '分開數字
                If Val(SP) > 0 Then xD(Val(SP)) = ""    '字典組合
            Next
        Next
        N = xD.Count
        xS.[A2:A110].ClearContents    '清除儲存格內容
        xS.[A2] = IIf(N = 0, "", N & "個")
        xS.[A3] = "號碼"
       If N > 0 Then
            With xS.[A4].Resize(N)
                .Value = Application.Transpose(xD.keys)
                'N > 1時才需要排序，不然會錯
                If N > 1 Then .Sort key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
            End With
        End If
        xD.RemoveAll
    Next
End Sub

ziv976688

回復 56# ML089

真不好意思，小BUG不斷。

版主 :
您不要這麼說，您願意指導，我已經是感激不盡了

要不是您不厭其煩的修正 Bug，我也沒機會學會正確的語法~
例如這一次的Bug，我是仔細的端詳整篇程式碼，但就是瞧不出 Bug是在哪裡?
也曾試將N>1改為N>=1，但失敗了~
結果是將N>0和N>1分別判斷就可以解決。

謝謝您的耐心指導和幫忙~感恩

PS : 54樓~ If 餘數 = 0 Then 餘數 = 49 的語法也是向您學習來的