Public nRows As Long, nCols As Long, nLastRow As Long, tmpSum As Long, tmpRow As Long, r As Long, c As Long
Public sumRows() As Long, nRowSkipSum() As Long, nColSkipSum() As Long, nColsLast() As Long
Public bForceValue() As Boolean
Public vArr() As Variant
Public fOffset As Single

Sub 變數初始化()
    tmpSum 
 
= 0
    tmpRow = 0
    Erase vArr
    With Sheet3
        vArr = .Range("A2").CurrentRegion.Value '取資料
        nRows = UBound(vArr)
        nCols = UBound(vArr, 2)
        ReDim sumRows(3 To nRows) '以第2行為基數,計算每行的和值(不含黃色的0)
        ReDim nRowSkipSum(3 To nRows)
        ReDim nColsLast(3 To nRows) '每行最後1個列限制和非0的非固定值的列號
 

        ReDim nColSkipSum(2 To nCols - 1)
        ReDim nRowsLast(2 To nCols - 1)
        ReDim bForceValue(3 To nRows, 2 To nCols) '牆壁標記容器
    End With
End Sub

Sub 以第2行為基數計算每行的和值不含黃色的零()
    With Sheet3
        With .Range("A1")
            For c = 2 To nCols - 1
                For r = 3 To nRows
                    If .Offset(r 
 
- 1, c - 1).Interior.Color = vbYellow Then '背景顏色為黃色的單元格固定原值不變(跳過)
                        bForceValue(r, c) = True
                        bForceValue(r, nCols) = True
                        nRowSkipSum(r) = nRowSkipSum(r) + vArr(r, c) '每行跳過值之和
                        nColSkipSum(c) = nColSkipSum(c) + vArr(r, c) '每列跳過值之和
                    Else
                        sumRows(r) = sumRows(r) + vArr(2, c) '每行限制之和
                        If vArr(2, c) <> 0 Then nColsLast(r) = c '每行最後1個列限制和非0的非固定值的列號
                    End If
                Next
            Next
        End With
    End With
End Sub
Sub 計算行列限制和值()
    For c = 2 To nCols - 1
        tmpSum = tmpSum + vArr(2, c)
    Next
    For r = 3 To nRows
        tmpRow = tmpRow + vArr(r, nCols)
        If vArr(r, nCols) <> 0 And bForceValue(r, nCols) = False Then nLastRow = r
    Next
    If tmpRow <> tmpSum Then MsgBox "行與列限制之和不相等！": Exit Sub
    If nLastRow < 3 Then MsgBox "至少要有一行無任何固定值！": Exit Sub
    '    fOffset = 0.05! '隨機值浮動百分比
End Sub
Sub 逐行生成隨機數()
    fOffset = 0.015! '隨機值浮動百分比
    Randomize
    For r = 3 To nRows
        If r <> nLastRow Then
            tmpSum = 0
            tmpRow = vArr(r, nCols) - nRowSkipSum(r) '該行剩餘可隨機值之和
            For c = 2 To nCols - 1
                If c <> nColsLast(r) And bForceValue(r, c) = False Then
                    vArr(r, c) = Int(tmpRow / sumRows(r) * vArr(2, c) * (1! + Rnd * fOffset * 2 - fOffset))
                    tmpSum = tmpSum + vArr(r, c)
                End If
            Next
            vArr(r, nColsLast(r)) = tmpRow - tmpSum '該行剩餘列的值
        End If
    Next
End Sub
Sub main限行列和隨機加牆版()
    Call 變數初始化
    Call 以第2行為基數計算每行的和值不含黃色的零
    Call 計算行列限制和值
    Call 逐行生成隨機數
    Call 逐列生成隨機數
    Call 結果輸出
End Sub
Sub 逐列生成隨機數()
    For c = 2 To nCols - 1
        tmpSum = 0
        For r = 3 To nRows
            If r <> nLastRow And bForceValue(r, c) = False Then tmpSum = tmpSum + vArr(r, c)
        Next
        vArr(nLastRow, c) = vArr(2, c) - nColSkipSum(c) - tmpSum '剩餘列的剩餘值
    Next
End Sub
Sub 結果輸出()
    With Sheet3
        .Range("A1").Resize(UBound(vArr), UBound(vArr, 2)).Value = vArr
    End With
End Sub