整个表啊？你没有表的范围吗？要历遍每个单元格EXCEL2003版整个表查找计算要计算65536*256=16777216次，EXCEL2007以上的版本，则查找计算的次数更所，时间更长。整个电脑一个上午都在运行查找计算，你不要工作了吗？Sub Macro7()
Dim I As Integer
Dim J As Integer
For I = 2 To 911
For J = 2 To 256
Set RANGCY = Cells.Find(What:="DDDDDDD", after:=Cells(I - 1, J - 1), LookIn:=xlFo...
