excel如何把多张工作表内容快速复制到一张表.docVIP

给工作表的每行都附上工作表名作为新列 Sub test() Dim i As Integer Dim j As Integer Dim o As Integer i = Worksheets.Count For j = 1 To i o = Worksheets(j).UsedRange.Rows.Count Worksheets(j).Range(k3:k30) = Worksheets(j).Name Next End Sub 如何把多张工作表内容快速复制到一张表 我有一份教师工资表,一个工作簿里有好多张工作表的,现在我想把各工作表里的内容全部合到一张表中,除了用复制粘贴的方法外,请问还能有什么好的方法快速合到一起吗? ’声明过程名称为“yy”。当要声明一个过程时，通常是以关键字“SUB”开头，并且以关键字“END”结束，在SUB关键字之前是用来指定此过程的作用域，例如public,static, 或protected 等。在SUB关键字之后为过程最重要的三大部分：过程名称、参数以及在SUB和END SUB之间的主体程序代码内容。过程是可以执行的语句序列单元，所有可执行的代码必须包含在某个过程中，任何过程都不能嵌套在其它过程中，过程的名称必须在模块级别进行定义。 Sheets.Add after:=Sheets(Sheets.Count)新建一个工作表放在最后。参数值和参