作者：乔山办公网日期：
返回目录：excel表格制作
Sub LF()
Range("B12").Formula = "=if(H2=C2,"""",""数据不一致"")"
'Cells(2, 12).Value = "=if(H2=C2,"""",""数据不一致"")"
End Sub
C2输入copy=AVERAGE(VLOOKUP(A2,INDIRECT("050"&$A$1&"!A:C"),3,FALSE),VLOOKUP(A2,INDIRECT("050"&A1+1&"!A:C"),3,FALSE),VLOOKUP(A2,INDIRECT("050"&A1+2&"!A:C"),3,FALSE),VLOOKUP(A2,INDIRECT("050"&A1+3&"!A:C"),3,FALSE),VLOOKUP(A2,INDIRECT("050"&A1+4&"!A:C"),3,FALSE))这样你在百A1输入4就是度0504~知0508，5个工作表，道在A1输入5，就是0505~0509，5个工作表。
用抄find函数
sub findaaa()
dim r as range
set r = sheets("汇总袭表zd").[A:A].find(what:="aaa")
msgbox r.row
end sub
可以试着把固定的单元格地址改成绝对地址，剩下的，用excel的自动填充功能，就可以自动变化了。