UC知道请帮忙改下这段excel宏代码！！谢谢！
来源：百度知道 编辑：UC知道 时间：2024/06/19 23:11:44
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE)),"""",VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE))"
这是在指定单元格中导入那个数据，
请帮忙改成：
1.读取一共有多少行数据
2.从第二行开始每行的第三列都输入"=IF(ISERROR(VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE)),"""",VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE))"
如何实现？？
谢谢回答！
"=IF(ISERROR(VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE)),"""",VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE))"
这是在指定单元格中导入那个数据，
请帮忙改成：
1.读取一共有多少行数据
2.从第二行开始每行的第三列都输入"=IF(ISERROR(VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE)),"""",VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE))"
如何实现？？
谢谢回答！
首先要确定有数据的列的列号
设这个值为y
设最大行号为x
x=Cells(65536,y).End(xlup).Row '取得最大行号
for x=2 to x
Cells(x,3). FormulaR1C1 ="=IF(ISERROR(VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE)),"""",VLOOKUP(RC[-1],[20090727.xls]Sheet1!R2C1:R2352C2,2,FALSE))"
next