大神求助拆分工作表问题

TaintyF · 发表于 2018-6-10 11:59

Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = True
End Sub
我用这个代码进行拆分的时候，怎么加代码使拆分的工作表都是数值的，而不是带公式的

liulang0808 · 发表于 2018-6-10 18:19

Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = True
End Sub

TaintyF · 发表于 2018-6-10 19:36

liulang0808 发表于 2018-6-10 18:19
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count

大神，拆分时候出现这种情况，什么意思？

liulang0808 · 发表于 2018-6-10 20:30

TaintyF 发表于 2018-6-10 19:36
大神，拆分时候出现这种情况，什么意思？

建议楼主上传完整附件

		自动登录	找回密码
密码			免费注册

[求助] 大神求助拆分工作表问题