VBA 批量填充单元格公式，求助各位，谢谢！！！

ahbc123

Sub FFF()
[B1].Resize([D1]).Formula = "=IF(A1<>"""",VLOOKUP($A1,Sheet2!$A:$C,2,TRUE),"""")"
Range("B" & [D1] + 1) = "选择题"
Range("B" & [D1] + 2).Resize([E1]).Formula = "=IF(A12<>"""",VLOOKUP($A12,Sheet2!$A:$C,2,TRUE),"""")"
End Sub
我想实现红色A12和 $A12 随D1值变化而变化，
我把A12和 $A12   改成 "A" & [D1] + 2 新建 XLSX 工作表.zip (18.42 KB, 下载次数: 1)

2023-2-27 19:53 上传

点击文件名下载附件

这种样子的，报错，求教该如何改，谢谢！！！

iu950

ahbc123

再请教：
Sheets("考试").[F2].Resize(Sheets("考试").[M1]).Formula = "=IF(E2<>"""",IF(COUNTIF(B2,""*""&E2&""*""),""√"",""×""),"""")"

改成下面的，哪里改错了，谢谢
Sheets("考试").Range("F" & Sheets("考试").[M1] + 5).Resize(Sheets("考试").[M1]).Formula = "=IF(E" & [M1] + 5 & "<>"""" ,IF(COUNTIF(B" & [M1] + 5 & ",""*""""E"" & [M1] + 5 & ""*""),""√"",""×""),"""")"

ahbc123

还请帮助看看，红色部分为啥改成变量，就不对了，谢谢
=IF(E44<>"",IF(COUNTIF(B44,"*"&E44&"*"),"√","×"),"")

Sheets("考试").Range("F" & Sheets("考试").[M1] + 5).Resize(Sheets("考试").[M1]).Formula = "=IF(E" & [M1] + 5 & "<>"""" ,IF(COUNTIF(B" & [M1] + 5 & ",""*""& "E" & [M1] + 5 &""*""),""√"",""×""),"""")"

02761752696

ahbc123 发表于 2023-3-1 10:59
还请帮助看看，红色部分为啥改成变量，就不对了，谢谢
=IF(E44"",IF(COUNTIF(B44,"*"&E44&"*"),"√","×") ...

用代码为啥还要用公式？？

ahbc123

02761752696 发表于 2023-3-1 12:14
用代码为啥还要用公式？？

谢谢！！我要在下面50行，重新写入公式 45-59 行不写入公式

ahbc123

02761752696 发表于 2023-3-1 12:14
用代码为啥还要用公式？？

谢谢！！我要在下面50行起，重新写入公式 45-59 行不写入公式

ahbc123

改成下面的写法，还是出错：
Sheets("考试").Range("F" & Sheets("考试").[M1] + 5).Resize(Sheets("考试").[M1]).Formula = "=IF(E" & [M1] + 5 & "<>"""" ,IF(COUNTIF(B" & [M1] + 5 & " ,""*""&E" & [M1] + 5 & """*""),""√"",""×""),"""")"