[已解决]合并sheet 页

小白白白白

小白白白白 发表于 2015-10-16 11:37
可不可以指定名字呢  因为以后合并的工作表名字有规律的 都是“ADDED_xxxx”
合并到“ADDED_TOTAL”

要合并的表在中间 为第3个 第4个 合并到5个   后面也还有其他的表 前面也有

小白白白白

grf1973 发表于 2015-10-16 11:32
那你要说一下要合并工作表名的特征，比如带个“月"字的。。。。。。

名字特征是“ADDED_xxxx”合并到ADDED_TOTAL

小白白白白

小白白白白 发表于 2015-10-16 12:10
名字特征是“ADDED_xxxx”合并到ADDED_TOTAL

这就是我要操作的sheet 直接发给你吧 我看我描述总是有漏洞  就是把那个ADDED_201507 和 ADDED_201508 合并到 ADDED_TOTAL   以后可能还要加上ADDED_201509  ADDED_201510  所以最好不要写死

小白白白白

grf1973 发表于 2015-10-16 11:33
或者是第1个工作表到第5个工作表，第4句可以改成
If Sh.index>=1 and sh.index

人呢？{:281:}

grf1973

Sub 合并()
    Dim Sh As Worksheet     '定义Sh为工作表类型的变量
    For Each Sh In Worksheets        '遍历所有工作表，设为Sh
        If InStr(Sh.Name, "ADDED") > 0 And Sh.Name <> ActiveSheet.Name Then  '如果工作表Sh的名字中包含“ADDED”字，并且不等于当前工作表名
            r1 = Sh.[a65536].End(3).row        '找到工作表Sh的A列有数据的最大行（用以确定要复制的数据区域）
            If r1 > 1 Then     '如果最大行大于1（表示工作内有数据）
                r = [b65536].End(3).row + 1       '当前表的A列最大行+1，设为r（数据粘贴的位置）
                Sh.Range("a2:L" & r1).Copy Cells(r, 3)        '工作表Sh有数据部分复制并粘贴到当前表的r行B列
                Cells(r, 2).Resize(r1 - 1, 1).Value = Sh.Name       '当前工作表的A列填充工作表Sh的名称（月份）
            End If
        End If
    Next       '找到下一张工作表Sh
End Sub

grf1973

请看附件。

小白白白白

grf1973 发表于 2015-10-16 16:53
请看附件。

试了  很棒！！谢谢 刚学习VBA在探索中

小白白白白

grf1973 发表于 2015-10-16 16:53
请看附件。

不好意思再打扰你  但是我试过之后还是有问题  还是总是合并到最后一个sheet页！！  怎么办{:281:}

grf1973

原本是按钮执行的，需要把当前工作表定为那个Total。如果想保险一点，加一句话就行了。
Sub 合并()
    Dim Sh As Worksheet     '定义Sh为工作表类型的变量
    Worksheets("ADDED_TOTAL").Activate
    For Each Sh In Worksheets        '遍历所有工作表，设为Sh
        If InStr(Sh.Name, "ADDED") > 0 And Sh.Name <> ActiveSheet.Name Then  '如果工作表Sh的名字中包含“ADDED”字，并且不等于当前工作表名
            r1 = Sh.[a65536].End(3).row        '找到工作表Sh的A列有数据的最大行（用以确定要复制的数据区域）
            If r1 > 1 Then     '如果最大行大于1（表示工作内有数据）
                r = [b65536].End(3).row + 1       '当前表的A列最大行+1，设为r（数据粘贴的位置）
                Sh.Range("a2:L" & r1).Copy Cells(r, 3)        '工作表Sh有数据部分复制并粘贴到当前表的r行B列
                Cells(r, 2).Resize(r1 - 1, 1).Value = Sh.Name       '当前工作表的A列填充工作表Sh的名称（月份）
            End If
        End If
    Next       '找到下一张工作表Sh
End Sub