同一工作簿下合并多工作表（1）

lxlyhu

可以，交叉匹配汇总，或者先“多薄合并”、“多表合并”，或“跨表查询”

lxlyhu

从360云盘上重新下载最新版本，使用“多薄交叉汇总”或“多表交叉汇总”功能，可把列标题位置不同，或首行位置不同的数据，交叉汇总在一个新的工作表中

乐乐2006201505

472285981 发表于 2014-6-18 21:09
Sub hebing()
For Each st In Worksheets
    If st.Name  ActiveSheet.Name Then st.UsedRange.Offset(1 ...

Sub hebing()
For Each st In Worksheets
    If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(0, 0).Copy [a65536].End(xlUp).Offset(0, 0)
Next
End Sub
这个是从第二行开始的  我的所有sheet第一行不见了，可以修改么

水中的颜

谢谢，我是新手，一路看下来，又下载了插件，楼主可谓是专家了。

zyqn518

学习学习，多谢

1720

很有用的，标记下学习了

jsh0530

可惜，公司的电脑不允许安装

jsh0530

使用楼主的宏，用在公司2007版，会提示JC22等数据问题，是怎么回事？回头查看宏，是在这句出现黄色提示：
sht.Range("a6").Resize(xrow, 21).Copy rng  '复制记录到汇总表  
ps.我的文件是从A6单元格开始，到U列。

bing_023

lzwubin 发表于 2014-3-16 23:48
结合上文，同一工作簿下合并多工作表的最简代码，仍是两个模块，代码分别如下：

Sub hebing()

老师：帮我看一下这个代码
要求：
1、整理：有数据的单元格汇总到新的表中。（没有数据的单元格不需要汇总）
2、排序：相同类别的产品“类别名称"合并，并添加边框。


Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer
    Dim s As String
    Dim rng As Range
    Set rng = Range("a3").CurrentRegion
    rng.Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlNo
    Application.DisplayAlerts = False
    With ActiveSheet
        j = .Range("a1").End(xlDown).Row
        For i = j To 2 Step -1
            If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
                .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge
            End If
        Next
    End With
    Application.DisplayAlerts = True
    rng.Borders.LineStyle = 1
End Sub

lxlyhu

以上可以用“跨表查询”功能实现，从中选择字段DCE即可