如何让拆分的文件不带公式

zhangbaokui · 发表于 2024-6-16 16:19

我需要把文件里面固定的几个工作表拆分成不带公式的并且文件名命名为为参数表里面的单元格值的文件

zhangbaokui · 发表于 2024-6-16 16:21

这个是源文件

gwjkkkkk · 发表于 2024-6-16 16:23

公式化值 ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

zhangbaokui · 发表于 2024-6-16 16:23

文件自身带的代码是可以实现拆分文件，但是拆分的文件是带有公式的，哪位高手帮助修改一下，让拆分的文件能够不带有公式！

3190496160 · 发表于 2024-6-16 16:51

在上传的文件中运行你目前的代码是要出错的嘛，因为，文件中就没有股东权益变动表这个工作表的嘛

3190496160 · 发表于 2024-6-16 17:17

Sub cfbb()
Application.ScreenUpdating = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
'Call CreateFolderAndFile
With Sheets("参数表")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 2 Then MsgBox "参数表为空！": End
ar = .Range("a1:b" & r)
lj = ThisWorkbook.Path & "\" ' "E:\圆天缘张宝葵\报告报表\集团公司\2024年度\" & .Range("F2").Value & "\"
End With
For i = 2 To UBound(ar)
If ar(i, 2) <> "" Then
      zd = Split(ar(i, 2), "月")(1)
      d(zd) = i
End If
Next i
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "参数表" Then
      zf = sh.Name
      xh = d(zf)
      If xh <> "" Then
         sh.Copy
         Set wb = ActiveWorkbook
         With wb.Worksheets(1)
            .UsedRange = .UsedRange.Value
         End With
         wb.SaveAs Filename:=lj & ar(xh, 2) & ".xlsx"
         wb.Close
      End If
End If
Next sh
Application.ScreenUpdating = True
End Sub

3190496160 · 发表于 2024-6-16 17:18

财务报表 - 副本.rar (119.17 KB, 下载次数: 4)

3190496160 · 发表于 2024-6-16 17:18

文件夹路径自己搞定吧

quqiyuan · 发表于 2024-6-16 17:19

本帖最后由 quqiyuan 于 2024-6-16 17:21 编辑

参与一下。。
重新写了段代码，自动获取需要的工作表输出的名称了

lcs_2046 · 发表于 2024-6-16 17:28

用paste special 行不?或者used range. Fomula=""?我也不确定

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

[求助] 如何让拆分的文件不带公式