Excel常用操作（自用）

1、将指定单元格复制指定行数

公式=OFFSET(A$1,INT(ROW(A5)/5)-1,,)&""

2、将Excel工作表按某列分成不同sheet

找到一个超详细有动图的教程戳这里

3、将同一工作表中的多个sheet拆分成多个工作表

开发工具-查看代码
粘贴以下代码运行即可

Private Sub 分拆工作表()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub