方法一、 (1)、打开工具菜单,选择宏Visual Basic 编辑器命令,如图所示: (2)、在打开的窗口中选择插入→模块命令,如图所示: (3)输入如下内容,如图所示: Sub sheetcount() Dim num As Integer num=ThisWorkbook.Sheets.Count Sheets(1).Select Cells(1,1)=num End Sub (4)、运行该宏,在该工作簿的第一个工作表的A1单元格中的数字就是工作表的个数。 方法二、 (1)按组合键,打...[ 查看全文 ]
以下代码的功能是,合并同一个工作薄中的其余的所有的工作表,将其余的表的数据,全部追加到第一个工作表后面,形成完整的唯一的一个表数据。 代码如下,稍后会附上代码说明: Dim MyCount As Integer k = Worksheets(1).UsedRange.Rows.Count + 1 For MyTable = 2 To Worksheets.Count For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count For j = 1 To Worksheets(MyTable).UsedRange.Columns.Co...[ 查看全文 ]