如何在excel公式中自动更改部分数据

时间:2018-05-16 16:40:16

标签: excel-vba vba excel

这是我的公式:

= RSLINX | AIR_TESTER_DATA' AIR_TESTER_EXCEL_CHASSIS_STRing [14,I],L1,C1'

i需要从500行中的1到500。同一栏。我有一个搜索和替换功能,适用于14.我只是不知道如何顺序将i从1更改为500?感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

以下示例将在单元格A1到A500

上写入数字1,2,3,4 ....

编辑:在单元格B1到B500上,这将添加以下公式= 5 * i,它将乘以循环生成的数字的5倍(1到500)。

Sub TestLoop()
    Dim i As Long
    Dim formulaText As String
    For i = 1 To 500
        formulaText = "=5*" & i & "&" & """ Is The product of 5 * " & i & """"
        Range("A" & i).Value = "Number: " & i
        Range("B" & i).Formula = formulaText
    Next
End Sub