请高手帮忙看看代码哪里错了

xkx590 · 发表于 2023-4-14 14:53

本帖最后由 xkx590 于 2023-4-14 16:19 编辑

谢谢各位高手帮忙，问题已解决，再次感谢！

ykcbf1100 · 发表于 2023-4-14 15:02

Range("D2:D" & x)改为Range("D2:D" & x).Formula，再试一下

wengjl · 发表于 2023-4-14 15:06

Range("D2:D" & x) = "=LOOKUP(E2,Range(""H1:H"" & y), Range(""I1:I"" & y)"

红的应该是多出来的

xkx590 · 发表于 2023-4-14 15:18

ykcbf1100 发表于 2023-4-14 15:02
Range("D2:D" & x)改为Range("D2:D" & x).Formula，再试一下

还是不行，提示400

xkx590 · 发表于 2023-4-14 15:21

wengjl 发表于 2023-4-14 15:06
Range("D2:D" & x) = "=LOOKUP(E2,Range(""H1:H"" & y), Range(""I1:I"" & y)"

红的应该是多出来的

少了双引号不行阿F:\01.jpg

xkx590 · 发表于 2023-4-14 15:23

本帖最后由 xkx590 于 2023-4-14 15:24 编辑

wengjl 发表于 2023-4-14 15:06
Range("D2:D" & x) = "=LOOKUP(E2,Range(""H1:H"" & y), Range(""I1:I"" & y)"

红的应该是多出来的

少了双引号，提示编译错误，缺少语句结束。截图放1楼。

半百 · 发表于 2023-4-14 15:27

ykcbf1100 · 发表于 2023-4-14 15:29

xkx590 发表于 2023-4-14 15:18
还是不行，提示400

应该是这样吧，Range("D2").Formula

xkx590 · 发表于 2023-4-14 15:43

ykcbf1100 发表于 2023-4-14 15:29
应该是这样吧，Range("D2").Formula

还是提示400

sosomc · 发表于 2023-4-14 15:56

本帖最后由 sosomc 于 2023-4-14 15:57 编辑

Range("C11:c12").Select
a = "=LOOKUP(E2,H1:H" & y & ", I1:I" & y & ")"
Selection.FormulaLocal = a

		自动登录	找回密码
密码			免费注册

[已解决] 请高手帮忙看看代码哪里错了