求大神帮忙做个批量处理程序

请问奥所多

我有一个数据表，在汇总sheet B2输入编号就可以在后面sheet生成单人数据，现在需要将单人数据sheet单独生成excel文件并保存到当前文件夹下，如附件所示。在网上搜索了很多vba复制工作表另存为工作簿的帖子，但是复制的包含公式，能不能只保存数据和格式，不粘贴公式。谢谢各位大神了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.13
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     p = ThisWorkbook.Path & ""
   
6.     p1 = p & "生成数据"
   
7.     With Sheets("汇总")
   
8.         r = .Cells(Rows.Count, 1).End(3).Row
   
9.         arr = [a1].Resize(r, 2)
   
10.         For i = 4 To UBound(arr)
    
11.             s = arr(i, 1)
    
12.             d(s) = arr(i, 2)
    
13.         Next
    
14.         bm = .[b2].Value
    
15.         fn = d(bm)
    
16.     End With
    
17.     For Each sht In Worksheets
    
18.         If sht.Name <> "汇总" Then
    
19.             m = m + 1
    
20.             If m = 1 Then sht.Select Else sht.Select False
    
21.         End If
    
22.     Next
    
23.     ActiveWindow.SelectedSheets.Copy
    
24.     Set wb = ActiveWorkbook
    
25.     For Each sht In wb.Sheets
    
26.         sht.UsedRange.Value = sht.UsedRange.Value
    
27.     Next
    
28.     wb.SaveAs p1 & fn
    
29.     wb.Close
    
30.     Sheets("汇总").Activate
    
31.     Application.ScreenUpdating = True
    
32.     MsgBox "OK！"
    
33. End Sub
    
34. 
    

复制代码

清风竹-

参与一下。

请问奥所多

清风竹- 发表于 2024-9-13 14:31
参与一下。

感谢大佬，又学到不少新知识

请问奥所多

ykcbf1100 发表于 2024-9-13 12:22
附件供参考。。。

感谢大佬，又学到不少新知识