excel vba ,从第二行开始，在A列生成25个大于10小于99的整数。在C列生成25个大于1小于A列数据的整数，且小数位数的数值大于A列小数位数的数值

在Excel VBA中，你可以通过嵌套循环和随机数生成函数来实现这个需求。以下是创建所需数据的一个示例VBA代码：

Sub GenerateRandomNumbers()

    Dim rng As Range
    Set rng = Range("A2") '假设从A2单元格开始

    Dim i As Long
    For i = 2 To 27 '因为你想生成25个数，加上第一行标题，则是从第2行到第26行
        rng.Offset(i - 1, 0).Value = Int(Rnd * 89) + 11 '生成10到99之间的整数
        rng.Offset(i - 1, 2).Value = Int((Rnd * (rng.Offset(i - 1, 0).Value - 1)) + 0.0001) '保证小数部分比A列大，且有更多小数位
    Next i

End Sub

这个宏首先设置范围`rng`为A2单元格，然后从第二行开始，对每一行的A列生成10到99之间的随机整数，并将结果存储在对应位置。对于C列，它生成一个小于A列值的随机整数，同时确保小数部分大于A列的小数部分。

相关问题

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

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列中满足条件的较小数值，并填入。