Question

请教一个EXCEL公式问题，谢谢！

假如我运行一个宏之后在sheet2的B1单元格写入公式=VLOOKUP(A1,sheet1!A:B,2,0)，如果我在运行这个宏之前更改过sheet1的名称将会失效，发生错误，请问我该如何将宏中公式的sheet1!A替换出来，如何才能在运行宏之前，无论我怎么修改sheet1的名称都不会发生错误。因为不方便每次使用都去修改宏，谢谢！！！

Answer 1

=VLOOKUP(A1,INDIRECT(MID(CELL("filename",Sheet1!A1),FIND("]",CELL("filename",Sheet1!A1))+1,100)&"!A:B"),2,0)
这样写后，如果宏修改了Sheet1的名称，公式不会失效。
如果，你的意思是：无论如何修改工作表Sheet1 的名字，宏运行时都不需要修改:
Dim oSH AS WorkSheet
set oSH= Sheets(1)
以后宏里面需要引用Sheet1的地方，都可以用oSH来替代

Answer 2

没明白究竟是宏影响了公式还是公式影响了宏。
建议将宏中第1个工作表的名称改为
Sheets(1)

追问

你好，没有相互影响，是因为宏输入的公式是固定的，如果此时sheet1的名称不再是sheet1时，就会发生错误。你所说的sheets(1)这个意思，我大概明白，类似于我这表格的话sheets(1)与sheets("sheet1")指的是同一个表格，用sheets(1)的话，无论sheet怎么改名称都不会受限制发生错误，可问题是，我现在需要改的是宏里往B1赋值的值当中的这个sheet1

追答

等到明白你的要求，答案已经出现了。试试 万年金刚钻 先生的公式。

Answer 3

是不是范围错了，图中是H-J啊，还有查找范围需要加绝对引用
=IF(AND(B2=vlookup(A2,H$2:j$16588,2,0),C2=vlookup(A2,h$2:h$16588,3,0)),1,0)
打字不易，如满意，望采纳。

追问

你好，不是因为没有加绝对引用的问题，整列选择时不需要加绝对引用不影响结果的。大概意思是这样的，我运行一个宏之后在sheet2的B1单元格写入公式=VLOOKUP(A1,sheet1!A:B,2,0)，这个公式是固定的，因为是宏里预先编写好的。若此时sheet1的名称不再是sheet1时就会发生错误，我想知道的是能否在宏里使用类似于sheets(1)的代码来实现，