之前請海大解答的程式，也還蠻常用的，但每次要改也是蠻麻煩的，想說把有甚麼語法能將指定儲存格導回到VBA中作代數值使用，1~5該如何改寫X.M.N.R，才能讓下方能執行
1.Dim arrCode(X)
2.X = Worksheets("Sheet1").Range("F1").Value
3.M = Worksheets("Sheet1").Range("F2").Value
4.N = Worksheets("Sheet1").Range("F3").Value
5.R = Worksheets("Sheet1").Range("F4").Value

Public Sub 啟動表單()
    startRow = 3 
    startCol = 3 
    nIdx = 0
    For nI = 1 To M
        If nI = M Then nLoop = R Else nLoop = N
        For nJ = 1 To nLoop
            nIdx = nIdx + 1
            arrCode(nIdx) = Format(nI, "00#") & Format(nJ, "00#")
        Next nJ
    Next nI
    For nI = startRow To startRow + X - 1
        scode = Cells(nI, startCol)
        If (scode <> "") Then
            Call useCode(scode)
        End If
    Next nI
    For nI = startRow To startRow + X - 1
        scode = Cells(nI, startCol)
        If (scode = "") Then
            Cells(nI, startCol) = getCode
        End If
    Next nI
End Sub
Function useCode(ByVal code As String)
    For nI = 1 To X
        If (arrCode(nI) = code) Then
            arrCode(nI) = ""
            Exit For
        End If
    Next nI
End Function
Function getCode() As String
    For nI = 1 To X
        If (arrCode(nI) <> "") Then
            getCode = "'" & arrCode(nI)
            arrCode(nI) = ""
            Exit For
        End If
    Next nI
End Function