单元格自动填入公式，公式地址编号以变量计算

janshion

执行宏代码以后，自动将表格填充数据及公式，完成计算。但公式中涉及表格地址编号，想让宏代码自己计算出来，再写入
公式中。
如：
Private Sub CommandButton1_Click()
Dim r As Long
Dim x As Integer
Dim i As Integer
r = 2
x = 1
For i = 1 To 10
Sheet1.Cells(r, 1) = x
Sheet1.Cells(r, 2).Value = "=B2*10" 'B2为单元格的地址编号，想以变量替代，在宏代码中自动计算出来
Sheet1.Cells(r, 3).Value = "=C2*10" 'C2为单元格的地址编号，想以变量替代，在宏代码中自动计算出来
r = r + 1
x = x + 1
End
End Sub

本人初学者，请论坛里前辈、高人指点一二。谢谢。

iwangyi

楼主将倒数第二行的END 换为NEXT I

YZC51

请参考
Private Sub CommandButton1_Click()
Dim r As Long
Dim x As Integer
Dim i As Integer
r = 2
x = 1
For i = 1 To 10
Sheet1.Cells(r, 1) = x
'Sheet1.Cells(r, 2).Value = "=B2*10" 'B2为单元格的地址编号，想以变量替代，在宏代码中自动计算出来
'Sheet1.Cells(r, 3).Value = "=C2*10" 'C2为单元格的地址编号，想以变量替代，在宏代码中自动计算出来
r = r + 1
x = x + 1
Next
Range("B3:B11") = "=B2*10"
Range("C3:C11") = "=C2*10"
End Sub

janshion

YZC51 发表于 2018-8-27 08:21
请参考
Private Sub CommandButton1_Click()
Dim r As Long

感谢前辈的答复，我想我提问的帖子可能是简单化了，实际要的功能比这个还要复杂。等我整理一下。
前辈有QQ吗？联系起来方便些。