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

Excel VBA可以帮助你自动化这个任务。首先，你需要编写一段VBA宏来完成两部分操作：生成随机数并检查个位数条件。

1. 生成20个随机数：

Sub GenerateRandomNumbers()
    Dim rng As Range
    Set rng = Range("A2")
    
    Dim i As Integer
    For i = 1 To 20
        ' 使用Rnd函数生成介于10和99之间的随机数
        rng.Offset(i, 0).Value = Int(Rnd * (99 - 10 + 1)) + 10
    Next i
End Sub

这部分会从A2单元格开始生成20个10到99的随机整数。

2. 根据个位数规则填充C列：

Sub CheckAndFillColumnC()
    Dim rngA As Range, rngC As Range
    Set rngA = Range("A2:A21") ' 假设A列有20个数字
    Set rngC = Range("C2") ' C列从第二行开始
    
    Dim aCell As Range
    For Each aCell In rngA
        Dim cCell As Range
        Set cCell = rngC ' 初始化C2单元格

        ' 检查个位数条件
        While IsNumeric(cCell.Value) And _
              cCell.Value >= aCell.Value And _
              Right(CStr(cCell.Value), 1) <= Right(CStr(aCell.Value), 1)
            cCell = cCell.Offset(1, 0) ' 移动到下一个位置
        Wend

        ' 如果找到符合条件的C列数值，则赋值
        If Not cCell Is Nothing Then
            cCell.Value = aCell.Value
        Else
            ' 如果未找到，则插入一行并在新行满足条件
            Exit Sub ' 可在此添加生成新的随机数的逻辑，然后跳出循环
        End If
    Next aCell
End Sub

这部分会遍历A列，寻找每个A列单元格对应的C列中满足条件的较小数值，并填入。