If InStr(sht.Name, "费用") > 0 Then irow = sht.Range("A65536").End(xlUp).Row irow1 = ThisWorkbook.Sheets("汇总").Range("A65536").End(xlUp).Row + 1 sht.Range("a1:z" & irow).Copy ThisWorkbook.Sheets("汇总").Range("a" & irow1) wb.Close False '关闭工作簿并且不保存

这段VBA代码的作用是：

1. 判断当前工作表的名称是否包含指定的字符串"费用"。如果包含，则执行后续的代码，否则跳过。

2. 获取当前工作表中数据的最后一行行号，将其赋值给变量`irow`。

3. 获取工作簿中名为“汇总”的工作表数据的最后一行行号，并将其加1，将计算结果赋值给变量`irow1`。

4. 将当前工作表中的数据复制到工作簿中名为“汇总”的工作表中。具体地，将从单元格A1到最后一行和最后一列的数据复制到工作簿中名为“汇总”的工作表的第`irow1`行的单元格A1开始的位置。

5. 关闭当前工作簿，不保存修改。

这段代码的作用是将多个Excel工作簿中名为“费用”的工作表的数据汇总到一个工作簿的名为“汇总”的工作表中。