excel vba 在A第二行生成20个大于10且小于99的整数，在c列生成大于1且小于99的整数，c列数据要小于A列数据，且C列数据的个位数大于A列的个位数

在Excel VBA中，你可以编写一段脚本来实现这个需求。这里是一个简单的例子，假设我们已经在A2单元格有第一个符合条件的数字：

Sub GenerateNumbers()
    Dim rngA As Range, rngC As Range
    Dim i As Long, num As Integer
    
    ' 设置范围
    Set rngA = Range("A2")
    Set rngC = Range("C2:C" & 21) ' 生成20个数字
    
    ' 遍历并生成满足条件的数字
    For i = 1 To 20
        num = Int((98 - 10) * Rnd + 10) ' 生成10到99之间的随机整数
        If num > rngA.Value And num < 99 Then ' 检查是否小于99且大于A列当前值
            If i Mod 10 > rngA.Cells(i \ 10, "A").Value \ 10 Then ' 判断个位数是否符合条件
                rngC.Cells(i, 1).Value = num ' 写入C列
            Else
                Debug.Print "已生成的数字不满足个位数条件：" & num
            End If
        End If
    Next i
End Sub

这段代码会往C2到C20的单元格里生成符合条件的整数。每次迭代都会检查新生成的数字是否同时满足大于A列当前值、小于99以及个位数要求。

如果你想要运行这段代码，可以将它粘贴到VBA编辑器（按Alt+F11），然后插入一个新的模块，复制上述代码并运行`GenerateNumbers()`函数。