Excel相关

• 1.多sheet页打印

选择需要拆分的sheet，Ctrl+P打印

注意配置每个打印页的打印设置，如单页打印 or 双页打印

• 2. 多个sheet页拆分成多个单独的Excel

参考：https://jingyan.baidu.com/article/ca2d939d767a16eb6c31ce85.html

选择需要拆分的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

点击运行

 

拆分完成

 

• 3.添加单引号格式

="'"&A1&"'"&","

• 4.Excel某一列乘固定的某值

如F列存放E列*G24的值

=$G$24*E4