- 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