原工作簿引出条件工作表到新的工作簿中

64627064

原稿文件来工作簿中有36个工作表格。根据√工作表，复制到新的工作簿其中里面工作表格式不变，工作表公式变为数值，参考复制新的工作簿

3190496160

Sub 拷贝()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("企业所得税年度纳税申报表填报表单")
     r = .Cells(Rows.Count, 2).End(xlUp).Row
     ar = .Range("a2:c" & r)
End With
On Error Resume Next
For i = 3 To UBound(ar)
    If ar(i, 3) = "√" Then
        m = m + 1
        mc = ar(i, 1) & ar(i, 2)
        Sheets(mc).Copy after:=Sheets(Sheets.Count)
        With ThisWorkbook.ActiveSheet
            .UsedRange = .UsedRange.Value
            If m = 1 Then
                .Copy
                Set wb = ActiveWorkbook
                wb.Worksheets(1).Name = mc
            Else
                .Copy after:=wb.Worksheets(wb.Worksheets.Count)
                wb.Worksheets(wb.Worksheets.Count).Name = mc
            End If
            .Delete
        End With
    End If
Next i
wb.SaveAs Filename:=ThisWorkbook.Path & "\拷贝文件.xlsx"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

企业所得税年度纳税申报表填报表单中的名称，必须完全跟工作表名称一致，否则是没法拷贝的

3190496160

111.rar (281.95 KB, 下载次数: 9)

2024-8-16 09:52 上传

点击文件名下载附件

64627064

这个工作表：《企业所得税年度纳税申报表填报表单》目录复制新工作簿固定每个表格要有，在帮我增加一下。谢谢

64627064

复制新的工作簿中。固定都要有这个目录("企业所得税年度纳税申报表填报表单")。可以帮忙增加。

64627064

测试过程发现表格。复印表格错位了。

64627064

复印到最后工作表。原稿中会删除。需要保留

3190496160

64627064 发表于 2024-8-16 16:49
复印到最后工作表。原稿中会删除。需要保留

不知道你想表达的是什么意思？？？