写了一段代码，汇总到sheets（3），如果你的表格是其他名字，请修改为sheets（“你的汇总表名字”）,例子请下载附件查看。 Sub huizong() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If sh.Index 3 Then ‘如果你的表为xx，情修改为if sh.name xx then sh.Range(A1:C11).Copy Sheets(3).Select Cells(1048576, 1).End(xlUp).Select If Selection.Value = Then Sheets(3).Paste Else Cells(1048576, 1).End(xlUp).Offset(1, 0).Select Sheets(3).Paste End If Else End If Next End Sub
