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列生成25个大于10小于99的整数。在C列生成个位数的数值比A列个位数的数值大且总值小于A列相应行的数据

这段Excel VBA代码的作用是在"Sheet1"的工作表上，从第二行（索引从1开始计）开始，生成25个符合条件的随机整数放在A列。这些整数范围是从10到99。同时，它还会检查每个生成的数字的个位数，如果这个个位数大于当前A列同行个位数，并且结果不超过A列对应行的数据，那么这个个位数就会被记录在C列。

请注意，由于`Rnd`函数生成的是[0, 1)范围内的浮点数，所以在循环中需要乘以范围差并转换成整数形式来得到所需的整数。然后使用`Right()`和`Mid()`函数来获取和操作个位数。

若C列始终没有数据显示，可能是因为随机生成的个位数要么始终小于等于A列的个位数，要么导致C列值超过A列对应的数值限制。

要保证C列生成的数据满足条件，你可以修改检查逻辑，比如添加一个`And`运算符确保结果小于等于A列值：

If Right(num, 1) > Right(rng.Offset(i - 1, 0), 1) And _
   (rng.Offset(i - 1, 0).Value - Mid(num, Len(num), 1)) >= 0 Then
   rng.Offset(i - 1, 2).Value = Mid(num, Len(num), 1)
End If

excel vba 从第二行开始，在A列生成大于10小于99的整数25个，在C列生成大于10小于99的整数，检查C列数据，使C列数据的个位数比A列数据个位数大

在Excel VBA中，你可以通过循环和条件判断来实现这个功能。这里是一个基本的步骤说明：

1. 首先，设置一个变量 `i` 作为行号，初始值为2（因为从第二行开始）。
2. 使用 `For` 循环，让它迭代25次（假设你想生成25个数字）：

   For i = 2 To 27 ' 初始26是为了预留一个空白行，实际需要25个数字

3. 在每次循环里，生成一个大于10且小于99的随机整数并存放在A列：

   A(i) = Int(Rnd() * 89) + 11 ' 生成11到99之间的随机整数，包括边界

4. 然后生成另一个大于10且小于99的整数放入C列，同时保证C列的个位数比A列大：

   Dim CValue As Integer
   Do
       CValue = A(i) + Int((9 - Abs(A(i) Mod 10))) ' 向右移动个位，如果个位是0则加9
   Loop While CValue >= 99 Or Not IsNumeric(CValue)
   C(i) = CValue

5. 在完成一次循环后，更新行号 `i`，并检查是否达到终止条件（26行）。
6. 当循环结束后，就完成了指定条件下的数据填充。

记得在循环前检查A列和C列的数据范围，以及处理可能出现的边界情况。