excel vba 根据A、B列的值生成一个十位数比A列小，个位数比A列大的数

在Excel VBA中，如果你想要根据A列和B列的值生成一个新的数，其十位数比A列的小，个位数比A列的大，可以利用`Format`函数结合`Mod`函数来实现。以下是一个示例代码：

Sub GenerateNewNumbers()
    Dim ws As Worksheet
    Dim rngA As Range
    Dim rngB As Range
    Dim newRange As Range
    Dim cell As Range
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.ActiveSheet
    Set rngA = ws.Range("A1:A10") ' 假设A列是从A1到A10
    Set rngB = ws.Range("B1:B10") ' 假设B列也是从B1到B10
    Set newRange = ws.Range("D1:D10") ' 新产生的数会在这里显示
    
    ' 遍历A和B列
    For Each cell In rngA
        Dim num As Integer
        ' 根据A列和B列生成新数值
        num = cell.Value * 10 + (cell.Value + 1) Mod 10 ' 十位数比A列小，个位数比A列大
        
        ' 将新数值写入新Range
        newRange.Cells(cell.Row, 1) = Format(num, "0000000000") ' 以0填充不足的位数，如需要其他格式可调整Format部分
    Next cell
End Sub

这段代码会在D列生成新的10位数，其中前一个十位数来自A列，后一位数比A列大1，并且个位数比A列小1。

注意：这里假设A列和B列的单元格都是整数类型。如果数据类型不同，需要相应处理。