Question

用excel VBA合并工作表后如何直接把函数公式变成数值，以下代码是合并指定位置工作表到一起，求解

Sub XXX()
Dim sht As Worksheet
Dim irow&, icol&, Num&

Application.ScreenUpdating = False
For Each sht In Sheets
If sht.Name <> "汇总" Then
With sht
irow = .[a65536].End(xlUp).Row
icol = .[iv1].End(xlToLeft).Column
Num = Sheets("汇总").[a65536].End(xlUp).Row
.Range("q7:W100").Copy Sheets("汇总").Cells(Num + 1, 1)
End With
End If
Next
Application.ScreenUpdating = True
End Sub

Answer 1

Sub XXX()
Sheets("汇总").Select
Sheets("汇总").Move Before:=Sheets(1)
Dim sht As Worksheet
Dim irow&, icol&, Num&
 Application.ScreenUpdating = False
For N = 2 To Sheets.Count
If Sheets(N).Name <> "汇总" Then
Num = Sheets("汇总").[a65536].End(xlUp).Row
arr = Sheets(N).Range("q7:W100")
Sheets("汇总").Cells(Num + 1, 1) = Sheets(N).Name
Sheets("汇总").Cells(Num + 2, 1).Resize(94, 7) = arr
End If
Next
Application.ScreenUpdating = True
End Sub

试下

追问

现在是汇总出这样的表格，中间有很多空格在汇总的时候不能一起去除，表格的筛选功能又不能用，汇总数据有点多，求助大神，代码能设置一起将空格的表格去除吗？

追答

汇总后，用代码批量将a列为空的空行删除

追问

您看，修改代码的话能否做到，一次汇总，同时批量删除空白行呢，这样的话工作效率能提高不少，谢谢您啦。

追答

Sub XXX()
Sheets("汇总").Select
Sheets("汇总").Move Before:=Sheets(1) '汇总表始终排列在第1个sheet
Dim sht As Worksheet
Dim irow&, icol&, Num&
 Application.ScreenUpdating = False
For N = 2 To Sheets.Count
Num = Sheets("汇总").[a65536].End(xlUp).Row
arr = Sheets(N).Range("q7:W100")
Sheets("汇总").Cells(Num + 1, 1) = Sheets(N).Name
Sheets("汇总").Cells(Num + 2, 1).Resize(94, 7) = arr '数组
Next
Dim I
For I = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(I, "a") = "" Then
      Rows(I).Delete
      End If
      Next
Application.ScreenUpdating = True
MsgBox "数据处理完毕........"
End Sub

Answer 2

.Range("q7:W100").Copy
Sheets("汇总").Activate

Cells(Num + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End With