excel vba根据A列数据，在相应的B列输入公式=J2*10+K2，公式行数变化

在Excel VBA中，如果你想根据A列的数据动态生成B列的公式，你可以使用For Each循环来遍历每一行。假设A列为第一列，B列为第二列，并且你的数据从J2和K2开始计算。以下是VBA代码的一个示例：

Sub GenerateFormulas()
    Dim ws As Worksheet ' 设置工作表变量
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你实际的工作表名
    
    Dim rngA As Range ' A列范围
    Dim rngB As Range ' B列范围
    Dim i As Long ' 行号计数器
    
    ' 定义A列和B列范围
    Set rngA = ws.Range("A1").CurrentRegion.Columns(1)
    Set rngB = ws.Range("B1").Resize(rngA.Rows.Count) ' 动态生成B列的范围
    
    ' 遍历A列，生成并输入公式
    For Each cell In rngA
        If Not IsEmpty(cell.Value) Then ' 检查单元格是否为空
            rngB.Cells(i, 1).FormulaR1C1 = "=RC[-1]*10+RC[-2]" ' 输入公式
            i = i + 1 ' 行号递增
        End If
    Next cell
    
End Sub

在这个例子中，你需要将`Sheet1`替换为你实际的工作表名称，并且确保运行该宏之前A列和B列都已经存在于你的工作表上。