vba提取工作簿中所有工作表最大值都÷1000出現工作表名字張三就最大值？

將 If ws.Name <> ActiveSheet.Name Then 改為以下試試

If ws.Name <> ActiveSheet.Name And InStr(ws.Name, "張三")=0 Then