求vba自动保存某个sheet并去除公式和无用行

xuxiangege

各位老师，工作原因需要在【2交费清单】表里面输入个人信息，然后将【3新清单】表单独保存出来，去掉公式和没有人名的多余行，文件名保存为【2交费清单】表里面投保单号后六位数字。谢谢……

xuxiangege

zhenghui13 发表于 2018-7-16 11:06
修改了一下，关于新保存表的设置是和电脑相关的。

再次求教下：1、生成的新表能否自动保存并关闭？现在生成后需要手动保存后关闭；
2、表【2交费清单】我加了个页码调节按钮，每页能打印18条数据，如果超出18条数据，点击按钮可以在第一页、第二页……之间切换，每页都要有表头和下面的小计总计等内容。如果最后一页不够18的话多余的空行要能够隐藏，但是我写的只能在人数小于18的时候正常显示，超出18人就报错了，求指教，ps：L61为总人数，h61为当前页人数，ac1为当前页码。

zhenghui13

简单的写了一下，应该能达到效果。文件会另存在相同止录下

1. Sub TZ()
   
2. Set wb1 = ThisWorkbook
   
3. Set ws = wb1.Sheets("3新清单")
   
4. Adr = wb1.Path
   
5. sName = Right(Sheet1.Cells(4, 3).Value, 6)
   
6. Set wb2 = Workbooks.Add
   
7. ws.Copy after:=wb2.Sheets(1)
   
8. wb2.SaveAs Adr & "" & sName
   
9. wb2.Sheets("3新清单").Select
   
10.     Columns("C:C").Select
    
11.     Selection.Copy
    
12.     Selection.PasteSpecial Paste:=xlPasteValues
    
13. Application.CutCopyMode = False
    
14. End Sub

复制代码

xuxiangege

zhenghui13 发表于 2018-7-16 09:32
简单的写了一下，应该能达到效果。文件会另存在相同止录下

非常感谢，试了下有两个地方：1、运行后，原始文件【3新清单】表里面投保人姓名的公式没了，因为还要重复制作下一个文件，2、新保存的表多了sheet1、2、3三个表，这个能不能去掉？只留下需要的表，3、新清单第9行往下投保人姓名为零的能不能整行删除，这个因为每次人数不一样，最好能自动去掉投保人姓名为0的行，谢谢！

zhenghui13

修改了一下，关于新保存表的设置是和电脑相关的。

1. Sub TZ20180716()
   
2. Set wb1 = ThisWorkbook
   
3. Set ws = wb1.Sheets("3新清单")
   
4. Adr = wb1.Path
   
5. sName = Right(Sheet1.Cells(4, 3).Value, 6)
   
6. Set wb2 = Workbooks.Add
   
7. ws.Copy after:=wb2.Sheets(1)
   
8. wb2.SaveAs Adr & "" & sName
   
9. wb2.Sheets("3新清单").Select
   
10.     Columns("C:C").Select
    
11.     Selection.Copy
    
12.     Selection.PasteSpecial Paste:=xlPasteValues
    
13. '删除行
    
14.     For m = Cells(65536, 3).End(xlUp).Row To 2 Step -1
    
15.         If Cells(m, 3) = 0 Then Rows(m).Delete
    
16.     Next m
    
17. '删除表
    
18. For Each sht In ActiveWorkbook.Worksheets
    
19.     If Not sht.Name = "3新清单" Then sht.Delete
    
20. Next sht
    
21. Application.CutCopyMode = False
    
22. End Sub

复制代码

xuxiangege

zhenghui13 发表于 2018-7-16 11:06
修改了一下，关于新保存表的设置是和电脑相关的。

非常感谢，谢谢大神

xuxiangege

zhenghui13 发表于 2018-7-16 11:06
修改了一下，关于新保存表的设置是和电脑相关的。

再请教一下，新表删除的时候会连续弹出三次“要删除的工作表中可能存在数据……”，要点三次才可以，有没有办法不弹出提示？

zhenghui13

在开始处添加Application.DisplayAlerts = False；并在最后添加Application.DisplayAlerts = True

xuxiangege

zhenghui13 发表于 2018-7-16 16:08
在开始处添加Application.DisplayAlerts = False；并在最后添加Application.DisplayAlerts = True

太完美了，谢谢指教