从分表提取对应行数据到总表

cjc209

lizhipei78 发表于 2023-3-25 13:10
你这个虽然说简单，但有一个前提就是其它各区只填写自己那一行的数据，假如其它区也填写了就会出现错误， ...

任何代码只针对该主题的问题而写 不可能做到万能的代码 具体情况具体处理

cjc209

lizhipei78 发表于 2023-3-25 13:10
你这个虽然说简单，但有一个前提就是其它各区只填写自己那一行的数据，假如其它区也填写了就会出现错误， ...

麻烦你给个适应各种情况的代码看看

lizhipei78

cjc209 发表于 2023-3-25 14:18
麻烦你给个适应各种情况的代码看看

我只是提个意见罢了，我是新手，刚学习，向大佬学习中
建议楼主可以根据表格拆分给各地区就好了，各地区只填写自己那一列就好了
就从新手来说，你的代码中，是不是可以每次在打开的时候，先取到文件名，然后根据文件名在地区中查找，如果查找到就取该行的值，好像instr或者Like应该可以，不过这样子再加一个循环，那速率肯定会慢很多的了

cjc209

lizhipei78 发表于 2023-3-25 14:33
我只是提个意见罢了，我是新手，刚学习，向大佬学习中
建议楼主可以根据表格拆分给各地区就好了，各地区 ...

那除非文件名与表中对应的名称一样就可以

shchint

cjc209 发表于 2023-3-25 14:12
你没有看清吗  题目就是 各个地区填写对应的行，然后返给我汇总。比如“东山区”的，他只填“东山区”这 ...

谢谢老师，是有这种可能，比如说东山区的误填到其他行，所以能不能只提取对应的行，东山区只提取东三区那一行的数据到总表对应行，其它行就算有数据也不要提取。可以实现吗老师？

shchint

lizhipei78 发表于 2023-3-25 14:33
我只是提个意见罢了，我是新手，刚学习，向大佬学习中
建议楼主可以根据表格拆分给各地区就好了，各地区 ...

就是要你说的这种，分表文件名根据总表第2列名称来查找，如果找到包含第2列名称的就是对应的分表，然后提取分表对应行的数据到总表对应行。老师帮忙写一个VBA呗

shchint

cjc209 发表于 2023-3-24 17:59
搞定  不复杂

谢谢老师，但是有个小小的问题，比如说东山区的，他误填或者多填到其它行，就会导致提取的数据错误。能不能只提取分表对应的那一行的数据，其它行就算有数据也不要提取。还有，能不能限定文件后缀只能是xls和xlsx，否则如果文件夹里有其它格式的文件也会提取到总表中，比如说txt文本文件也会被提取了。

shchint

cjc209 发表于 2023-3-25 14:59
那除非文件名与表中对应的名称一样就可以

老师，文件名会包含有总表第2列的关键字

ragtag

Sub UpdateTable()
    Dim df0 As Workbook
    Set ws = Sheets("总表") '更改为需要更新的工作表名称
    Dim path As String
    path = "D:\从分表提取对应行数据到总表\" '需要修改到实际目录
    Dim file As String
    file = Dir(path)
    Dim df As Object
    Dim i As Integer, x As Integer

    Do While file <> ""
        Set df0 = Application.Workbooks.Open(path & file)
        Set df = df0.Sheets("总表")
        x = df.UsedRange.Rows.Count
        For i = 5 To x
            If df.Cells(i, 3) <> "" Then
                ws.Range("C" & i & ":H" & i).Value = df.Range("C" & i & ":H" & i).Value
                ws.Cells(i, 9) = file
                Exit For
            End If
        Next i
        df0.Close
        file = Dir
    Loop

End Sub

cjc209

shchint 发表于 2023-3-25 15:58
老师，文件名会包含有总表第2列的关键字

那就小做修改就对了