求一个多工作簿合并并把文件名填充到第一列的所有相应行

lilin0320707

    目前通过论坛已完成对多表合并的工作，但现在有个新的需求没有做到，就是需要把合并后找一列显示是从哪个文件名合并来的，把文件名全部填充到一列，效果如图（名称目前是手工粘的），求大侠给个代码解决下，辛苦。

microyip

辛苦楼主了，就截了个图就做起甩手掌柜了

jsgj2023

你是忘记传附件了么?

小花鹿

合并的时候把文件名记录下来

liuzq0306

Private Sub Worksheet_Activate() '激活区汇总表时再隐藏其他表
    Call 隐藏其他表
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击会员姓名就可以进入
    Dim sh As Worksheet
    On Error Resume Next
    Set sh = Worksheets(Target.Value)
    If Not sh Is Nothing Then
        sh.Visible = xlSheetVisible
        sh.Activate
    End If
    Cancel = True
End Sub


Sub 隐藏其他表() '模块中
    Dim sh As Worksheet
    Worksheets("区汇总").Visible = xlSheetVisible
    For Each sh In Worksheets
        If sh.Name <> "需要的表名" Then sh.Visible = xlSheetVeryHidden
    Next
End Sub

liuzq0306

看懂这个，应该就可以完成这个功能。哦，错了，也许不是这个你想要的。但你的需要也许可以用链接。

lilin0320707

microyip 发表于 2016-11-14 09:09
辛苦楼主了，就截了个图就做起甩手掌柜了

第一次发帖，还真没注意需要发啥附件么。。如有失误请指教。

lilin0320707

还需要上传附件？新手不知请见谅。。补一下

microyip

真是瞎折腾，参考一下《 多工作簿多表查询汇总的通用解决方案》http://club.excelhome.net/thread-1310803-1-1.html