Arrays 用数字VBA填充部分填充数组的行

我试图解决的问题在理论上非常简单，但我真的很难将其放入VBA代码中。 基本上，我的问题是：用户输入的文件在开始时包含一个数字，它将被读取为n，并且一个矩阵被读取到一个数组中，大小为nxn，已经部分填充，我需要用数字1到n填充每一行，每个数字只出现一次。我需要对给定数组中的每一行执行此操作

所以，我需要查看每一行，看看它包含哪些数字，并用它不包含的数字填空

以下是我的大部分代码：

子问题（）
'定义变量
作为整数的Dim n
作为整数的Dim i
作为整数的Dim j
Dim inputFileName作为字符串
'询问用户输入文件名
inputFileName=InputBox（“输入问题文件名（包括.txt扩展名）”）
inputFileName=ActiveWorkbook.Path&“\”&inputFileName
打开inputFileName，输入为#1
'读入文件顶部的变量n
输入#1，n
'构造（n x n）矩阵，该矩阵将保存问题并从输入文件中读入问题
作为整数的ReDim矩阵（1到n，1到n）
对于i=1到n
对于j=1到n
输入#1，矩阵（i，j）
下一个j
接下来我
关闭#1
'**************************************************************
'创建一个随机启动解决方案
作为整数的ReDim sol（1到n，1到n）
初始溶液溶胶，基体，n
端接头

我正在使用一个名为initialSolution的小子过程来获得初始解决方案，但这是我一直坚持的部分。这是潜艇的基本轮廓，我还没有填写：

Sub initialSolution(sol() As Integer, Matrix() As Integer, n As Integer)

End Sub

---

不确定这是否是您想要的：

Dim Counter: Counter = 1
Dim f, i
n = 15 'n=InputBox return
For f = 1 To n
    For i = 1 To n
        Cells(f, i).Value = Counter
        Counter = Counter + 1
    Next
Next

忽略变量sol（），这是问题的另一部分，我在这里没有提到。