Question

怎么将一个EXCEL表格中指定区域中的内容导出生成新的EXCEL文件？

怎么将一个EXCEL表格中指定区域中的内容导出生成新的EXCEL文件，原选定区域中部分单元格是含有公式的，在新生成的文件中不能含有公式，只能有通过公式计算出来的数值（类似于选择性粘贴），同时可以自动给新文件命名。
这个是需要VB代码的 我要做一个按钮

Answer 1

1、通过简单的复制操作即可完成此功能，首先打开一个excel表格，需要将表格中B列单元格内的数值生成新的excel表格。

2、新建一个空白excel文件。

3、选中原本的excel表格的B列单元格，使用“Ctrl+C”进行复制操作。

4、然后切换到新建的excel表格中，点击鼠标右键，在弹出的选项中点击“粘贴数值”。

5、即可将复制的单元中的内容只粘贴数值在新表格中，而不带公式与格式。

Answer 2

1 选中原表格的指定区域，按Ctrl + C
2 按Ctrl + N 新建一个EXCEL文件
3 选中A1右键，选择粘贴，如果原区域有公式，建议右键，选择粘贴为值，这样避免数据因为原区域的改变而改变。
4 保存新有EXCEL文件
如果是批量的，那最好用VBA实现，这个要有数据文件和说明要实现的效果

Answer 3

Sub 复制表到新表()
'
' 复制表到新表 Macro
'

'
Dim parentPath As String
parentPath = ThisWorkbook.path
Dim thisFileName As String
thisFileName = ThisWorkbook.ActiveSheet.Name

Sheets("报价单模板").Copy

' save as Workbooks("报价单模板报表" & range("H46"))
'选择性粘贴
Range("A1:H46").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'删除右边多余列
Columns("I:Q").Delete Shift:=xlToLeft

'删除下方多余行

Rows("46:52").Delete Shift:=xlUp

Range("A1").Select

Dim newFileName As String
newFileName = thisFileName & "报表"
ActiveWorkbook.SaveAs fileName:=parentPath & "\" & newFileName & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Answer 4

按F5，定位，引用位置选择你要修改的位置就可以了，比如引用位置为C40，就会直接定位到C40，但是单元格不会解除隐藏

Answer 5

只能复制选择区域到新的文件，但是格式会变，所以只能这样了