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

在Excel VBA中，你可以通过循环结构和随机函数来实现这个需求。以下是编写VBA宏的一个示例：

Sub GenerateData()
    Dim rngA As Range, rngC As Range, rngD As Range
    Dim i As Long, num As Integer
    
    ' 设置范围，这里假设A1为开始位置
    Set rngA = Sheets("Sheet1").Range("A2") ' 更改为你实际的工作表和单元格
    Set rngC = rngA.Offset(0, 1) ' C列在A列右边
    Set rngD = rngC.Offset(0, 1) ' D列在C列右边
    
    ' 生成20个符合条件的随机整数并填入A列
    For i = 1 To 20
        num = Int((99 - 10 + 1) * Rnd) + 10 ' 随机生成10到99之间的整数
        rngA.Cells(i, 1).Value = num
        ' 检查C列条件，并生成相应的整数
        If num < rngA.Cells(i, 1).Value Then
            num = Int(num / 10) * 10 + (Int(num / 10) + 1) * 10 ' 保证个位数比A列大
            rngC.Cells(i, 1).Value = num
        End If
        ' 计算A列和C列的差值并填入D列
        rngD.Cells(i, 1).Value = rngA.Cells(i, 1).Value - rngC.Cells(i, 1).Value
    Next i
End Sub