同一工作薄中合并部分工作表数据到另一工作表中

qyzz

请见附件样例：
需要实现在“合并”工作表合并显示“标准清单”和“同义标准清单”这两工作表中的数据，合并的数据中不包含只有公式没有实际数据的行（这样的行都在实际数据后，不用考虑在有效数据中间夹杂的恶情况。我给“序号”字段加了自动编号的公式，同行还有其它一些公式……）。
目前样例工作薄中用的是网上通行的VBA，会合并工作薄中所有工作表的数据（包括只有公式没有实际数据的行），特向高手们求助！谢谢了先！

qyzz

好吧，自己研究了一下，合并指定的工作表已经搞定了，但是复制内容为值而不是公式还没有搞定，那位大大能够在此基础上帮一把，谢谢了！
Option Explicit
Sub 汇总()
Rows("2:1000").Clear   '删除第2行到1000行所有记录
Dim sht As Worksheet, xrow As Integer, rng As Range, i As Integer
  With sht
    For i = 2 To 3
      Set rng = Range("a1000").End(xlUp).Offset(1, 0)   '获得A列第一个空单元格
      xrow = Sheets(i).[A65536].End(xlUp).Row - 1    '获得分表中的记录条数
      Sheets(i).Range("a2").Resize(xrow, 14).Copy rng    '复制记录到汇总表
    Next
  End With
End Sub

Sub 清除()
Rows("2:1000").Clear  '删除第2行到1000行所有记录
End Sub

qyzz

找了找资料，已经搞定代码：

Sub 汇总()
  Rows("2:1000").Clear                                                                      '删除第2行到1000行所有记录
  Dim xrow As Integer, rng As Range, i As Integer
    For i = 2 To 3
      Set rng = Range("a1000").End(xlUp).Offset(1, 0)                        '获得A列第一个空单元格
      xrow = Sheets(i).[A65536].End(xlUp).Row - 1                             '获得分表中的记录条数
      Sheets(i).Range("a2").Resize(xrow, 14).Copy rng                        '复制记录到汇总表
      ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value             '取消活动工作表已使用范围的公式并保留值
      ActiveSheet.UsedRange.Validation.Delete                                    '取消活动工作表以使用范围的数据有效性
      Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete  '删除所有B列单元格为空的行
    Next
End Sub

wuliu56

qyzz 发表于 2016-7-7 15:36
找了找资料，已经搞定代码：

Sub 汇总()

with语句好像没什么用处吧。

qyzz

wuliu56 发表于 2016-7-7 16:15
with语句好像没什么用处吧。

是的，改完代码后忘了检查和优化了，谢谢提醒

qyzz

问题已经解决了，自己不能改状态啊，是要版主操作吗？

LMY123

同薄多表合并

lrh788

学习中！！！