快速合并多表数据

bluesky4016

本人是菜鸟，最近在学习VBA，我在"别怕，EXcel VBA其实很简单"看到一个快速合并多表数据的例子.
我发现如果要粘贴的数据是excel公式产生的，而且公式的数据在粘贴表格外。这样合并的数据后，显示空格！不显示数据。
如果我想显示数据该怎么改(比如excel里面的选择性粘贴值和数字格式).

Option Explicit
Sub hebing()
    MsgBox "下面将把各班成绩表合并到“总成绩”工作表中!"
    Rows("2:65536").Clear                                       '删除原有记录
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets                                  '遍历工作薄中所有工作表
        If sht.Name <> ActiveSheet.Name Then
            Set rng = Range("A65536").End(xlUp).Offset(1, 0)    '获得汇总表A列第一个空单元格
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
            sht.Range("A2").Resize(xrow, 7).Copy rng            '粘贴记录到汇总表
        End If
    Next
End Sub

thuzap

这个代码运行的结果会是始终粘贴的是最后一个满足条件工作表的记录到rng区域。
应该把set rng放到for循环外，然后每次copy后指定rng offset