COOMO~可馨:
增加一个工作表,放置工作簿第一个工作表,按alt+f11,(打开代码窗口);2.按F7调出代码窗口;3.将下列数据复制到窗口;Subhebing()'把各分表合并到第一个总表工作中Rows("2:65536").ClearDimshtAsWorksheet,xrowAsInteger,rngAsRangeForEachshtInWorksheets'遍历工作簿中所有工作表Ifsht.NameActiveSheet.NameThenSetrng=Range("a65536").En....