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

Excel VBA可以编写宏来完成这样的任务。首先，我们创建一个过程，生成符合条件的随机整数，并按要求填充到相应的列。以下是基本步骤：

1. 定义范围：假设A2开始是我们生成数字的地方。

Dim rngA As Range, rngC As Range, rngD As Range
Set rngA = Range("A2")
Set rngC = Range("C2") ' 注意这里是C2，不是紧挨着A2的单元格
Set rngD = Range("D2")

2. 生成并填充A列：使用`RND`函数生成随机数，然后检查是否满足条件。

For i = 1 To 20 ' 生成20个数
    Dim num As Integer
    num = Int((99 - 10) * Rnd + 10) ' 随机生成10~99的整数
    rngA.Cells(i).Value = num ' 填充到A列
Next i

3. 生成并填充C列：类似地生成小于99的随机数，但需要保证C列数据小于A列且个位数更大。

For i = 1 To 20 ' 比照A列生成C列数值
    Dim cNum As Integer
    If rngA.Cells(i).Mod(10) > rngC.Cells(i - 1).Mod(10) Then ' 如果个位数大
        Do While (cNum <= rngA.Cells(i)) Or (cNum Mod 10 <= rngA.Cells(i).Mod(10)) ' 生成大于A列且个位数更大的数
            cNum = Int((99 - 1) * Rnd + 1)
        Loop
        rngC.Cells(i).Value = cNum
    Else ' 如果个位数小，则从当前值+1开始寻找
        cNum = rngC.Cells(i).Value + 1
        Do While cNum Mod 10 <= rngA.Cells(i).Mod(10)
            cNum = cNum + 1
        Loop
        rngC.Cells(i).Value = cNum
    End If
Next i

4. 计算D列：这里直接相减得到结果。

For i = 1 To 20
    rngD.Cells(i).Value = rngA.Cells(i).Value - rngC.Cells(i).Value
Next i