请教老师，跨工作簿引用数据标题不在第一行无法引用数据问题

ykcbf1100

pjdong 发表于 2024-6-9 17:55
是按汇总里的行和列获取到对应的总表数据

现在就是这样的啊。

pjdong

chxw68 发表于 2024-6-9 17:47
参与一下。

谢谢！这个很好

chxw68

ykcbf1100 发表于 2024-6-7 08:03
参与一下。。。

第20行代码应该修改为：            s = Cells(i, 1) & "|" & Cells(2, j)

ykcbf1100

chxw68 发表于 2024-6-9 18:08
第20行代码应该修改为：            s = Cells(i, 1) & "|" & Cells(2, j)

谢谢老师提醒。
我没有仔细看过呢，粗看好象没问题。我再查一下。

ykcbf1100

pjdong 发表于 2024-6-9 17:55
是按汇总里的行和列获取到对应的总表数据

你用chxw68老师的代码就好，就象chxw68老师说的那样，我的代码有笔误。

pjdong

ykcbf1100 发表于 2024-6-9 17:57
现在就是这样的啊。

老师请看对应的汇总和总表的数据，比如青的结果是不一样的，谢谢

pjdong

ykcbf1100 发表于 2024-6-9 18:12
你用chxw68老师的代码就好，就象chxw68老师说的那样，我的代码有笔误。

谢谢，谢谢两位老师指点

chxw68

ykcbf1100 发表于 2024-6-9 18:12
你用chxw68老师的代码就好，就象chxw68老师说的那样，我的代码有笔误。

你的代码更符合楼主的思路。

ykcbf1100

chxw68 发表于 2024-6-9 18:38
你的代码更符合楼主的思路。

我也是根据楼主代码小改一下。如果我自己写，可能不会出现这样的低级失误。所以，我一般都是新写，不愿意去改别人的代码。

kdsea

Sub 汇总一下()
    Range("B3:E10000").Clear
    Dim wb As Workbook
    Dim k
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\总表.xlsx")
    arr = Range("a1").CurrentRegion
    wb.Close
    h = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To UBound(arr)
        For t = 2 To UBound(arr, 2)
        On Error Resume Next
            k = Range("B2:E2").Find(arr(1, t), , , xlWhole).Column
            For j = 3 To h
                If Cells(j, 1) = arr(i, 1) Then
                    Cells(j, k) = Cells(j, k) + arr(i, t)
                End If
            Next
            k = ""
        Next
    Next
End Sub
经增加数据量，加入重复项，测试通过