刪除隱藏行列及刪除打印區(qū)域外的內(nèi)容

hahazeng

大家好，如何下面程序中增加“刪除隱藏行列及刪除打印區(qū)域外的內(nèi)容”功能，隱藏行列數(shù)量位置不定，具體可見附件。
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Mc As String, n%
Dim Sh As Worksheet
Dim ShName As String
With ThisWorkbook
For n = 24 To .Sheets("輸入表").[J65536].End(xlUp).Row
    Mc = .Sheets("輸入表").Cells(n, 10).Value
    .Sheets("輸入表").[K14] = Mc
    .Sheets("信息").[D11] = Mc
      .Sheets("輸入表").[L19] = "無線"
      .Sheets("信息").[G9] = "無線"
      .Sheets(Array("表一")).Copy
      ActiveWorkbook.SaveAs Filename:=.Path & "\" & Mc & "(無線)概算.xls", FileFormat:=xlNormal
      ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
      ActiveSheet.DrawingObjects.Delete
      
      For Each Sh In ActiveWorkbook.Sheets
         Sh.Select
         Sh.Cells.Select
         Selection.Copy
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         Sh.Cells(1, 1).Select
      Next
      
      ActiveWorkbook.Close (True)
     
      .Sheets("輸入表").[L19] = "電源"
      .Sheets("信息").[G9] = "電源"
      .Sheets(Array("表一")).Copy
      ActiveWorkbook.SaveAs Filename:=.Path & "\" & Mc & "(電源)概算.xls", FileFormat:=xlNormal
      ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
      ActiveSheet.DrawingObjects.Delete
      
      For Each Sh In ActiveWorkbook.Sheets
         Sh.Select
         Sh.Cells.Select
         Selection.Copy
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         Sh.Cells(1, 1).Select
      Next
     
      ActiveWorkbook.Close (True)
     
      .Sheets("輸入表").[L19] = "配套"
      .Sheets("信息").[G9] = "配套"
      .Sheets(Array("表一")).Copy
      ActiveWorkbook.SaveAs Filename:=.Path & "\" & Mc & "(配套)概算.xls", FileFormat:=xlNormal
      ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
      ActiveSheet.DrawingObjects.Delete
      
      
      For Each Sh In ActiveWorkbook.Sheets
         Sh.Select
         Sh.Cells.Select
         Selection.Copy
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         Sh.Cells(1, 1).Select
      Next
     
      ActiveWorkbook.Close (True)
      
Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

hahazeng

往前頂一下

hahazeng

高手去哪兒啦

hahazeng

再次頂，往前頂