range赋公式缺少语句结束

会飞的土豆宏宏

关于vba公式赋值语法问题
   lt3 = lt3 + 1
    Range("AB" & lt3).Formula ="=Range("s" & lt3) / Range("r" & lt3)"
range赋公式这一步老说缺少语句结束，看不出来怎么错了。

lss001

会飞的土豆宏宏 发表于 2024-8-14 08:47
我是截取了部分代码，不涉及 sub 和end sub的问题

猜测1→等号后赋数值
Range("AB" & lt3).Formula = "=" & Range("s" & lt3) / Range("r" & lt3)

猜测2→等号后赋公式
Range("AB" & lt3).Formula = "=s" & lt3 & "/r" & lt3

会飞的土豆宏宏

我是截取了部分代码，不涉及 sub 和end sub的问题

Again123456

你在表格里输公式用的都是地址吧，什么时候用Range对象了啊。

会飞的土豆宏宏

Again123456 发表于 2024-8-14 09:31
你在表格里输公式用的都是地址吧，什么时候用Range对象了啊。

感谢老师回复，确实原值是这样的，
t3 = lt3 + 1
    Range("AB10671").Formula = "=S10671/R10671"
我改写了一下。目的是将s后面的10671后面的数字用变量替代掉，这样就不用手动输入了，但是这里的意思是吧这部分公式直接填入到表格里吗？那单元格怎么实现赋值替代呢？

会飞的土豆宏宏

lss001 发表于 2024-8-14 10:03
猜测1→等号后赋数值
Range("AB" & lt3).Formula = "=" & Range("s" & lt3) / Range("r" & lt3)

谢谢大佬，可以了，用的第二种，感激之情无以言表，作为一个野生vba学习者我困惑了好久。
斗胆进一步提问改写函数公式的内容
原公式如下所示
Range("AC" & lt3).Formula = "=XLOOKUP(b10671&G10671，'zpp017 1600'!A:A&'zpp017 1600'!I:I，'zpp017 1600'!K:K)"
改写成下面的公式，提示formula作用于range时失败
Range("AC" & lt3).Formula = "=XLOOKUP(b" & lt3 & "G" & lt3 & "，""'zpp017 1600'!A:A&'zpp017 1600'!I:I，'zpp017 1600'!K:K)" '修改为型体号
思考了一下，改写成这样就可以了
Range("AC" & lt3).Formula = "=XLOOKUP(b:b&g:g,'zpp017 1600'!A:A&'zpp017 1600'!I:I，'zpp017 1600'!K:K)" '修改为型体号
最后一步了，又卡在这里，这部写完了我的简单vb就结束了
Range("AG" & lt3).Formula = "=AE" & lt3 * 250  '这一步需要改写
这里实现的效果是单元格 ag&lt3的值 等于单元格ae（250倍lt3）的值，
想要实现的效果是单元格 ag &lt3的值 固定等于 ae&lt3 值的250倍

会飞的土豆宏宏

lss001 发表于 2024-8-14 10:03
猜测1→等号后赋数值
Range("AB" & lt3).Formula = "=" & Range("s" & lt3) / Range("r" & lt3)

为什么只给了一分，我想给高分的

会飞的土豆宏宏

lss001 发表于 2024-8-14 10:03
猜测1→等号后赋数值
Range("AB" & lt3).Formula = "=" & Range("s" & lt3) / Range("r" & lt3)

可否在以上基础上延伸一下，这种格式的公式应该如何改写？
Range("AE" & lt3).Formula = "=XLOOKUP(b10671&G10671，'zpp017 1000'!A:A&'zpp017 1000'!I:I，'zpp017 1000'!K:K)"
也是等号后赋公式，
感觉基础非常薄弱，基础写法都不会

Again123456

会飞的土豆宏宏 发表于 2024-8-15 09:56
感谢老师回复，确实原值是这样的，
t3 = lt3 + 1
    Range("AB10671").Formula = "=S10671/R10671"

Formula的值是String类型，其中涉及的单元格部分是Range().Address() 也是String类型才可。如果你一定要用Range对像，应该可以这样表示：Range("a" & i).Address & "/" Range("b" & i).Address

lss001

会飞的土豆宏宏 发表于 2024-8-15 10:32
可否在以上基础上延伸一下，这种格式的公式应该如何改写？
Range("AE" & lt3).Formula = "=XLOOKUP(b106 ...

Range("AC" & lt3).Formula2 = "=XLOOKUP(B" & lt3 & "&G" & lt3 & "，'zpp017 1600'!A:A&'zpp017 1600'!I:I，'zpp017 1600'!K:K)"