[已解决]求助大侠这个问题如何解决？？？

icevic

表中有“汇总”、“1”、“2”、“3”、“4”，5张表格，我想要把“1”、“2”、“3”、“4”，这4张表第一行行标题跟“汇总”第一行标题名称一致的数字提取到汇总这张表中，就如附件中所列示内容相一致。如何才能实现呢？这个问题应该只能用VBA才能实现。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-11-4 18:56

跳转到最佳答案楼层

qh8600

根本看不懂说的啥

zjdh

icevic

zjdh 发表于 2014-11-4 18:56

Sub TEST()
   Set SH = Sheets("汇总")
    SH.Rows("2:65536").ClearContents
        For I = 1 To Sheets.Count
            With Sheets(I)
            If .Name <> "汇总" Then
                For J = 1 To .Range("A1").End(2).Column
                    Set L = SH.Rows(1).Find(.Cells(1, J).Value)
                    If Not L Is Nothing Then
                        CL = L.Column
                        .Range(.Cells(2, J), .Cells(.Cells(65536, J).End(3).Row, J)).Copy SH.Cells(65536, CL).End(3)(2)
                        AAAA = .Range(.Cells(2, J), .Cells(.Cells(65536, J).End(3).Row, J))
                    End If
                Next

icevic

icevic 发表于 2014-11-4 19:28
Sub TEST()
   Set SH = Sheets("汇总")
    SH.Rows("2:65536").ClearContents

可以帮我解释一下这个宏的意思吗？

icevic

zjdh 发表于 2014-11-4 18:56

厉害啊！就是我想要的！

zjdh

很简单啊，没啥可解释的。
Sub TEST()
    Set SH = Sheets("汇总")            '设置变量为汇总表
    SH.Rows("2:65536").ClearContents  '清除原有记录
    For I = 1 To Sheets.Count     '循环处理工作表
        With Sheets(I)            '处理第 I 个表
            If .Name <> "汇总" Then   '如果不为“汇总表”
                For J = 1 To .Range("A1").End(2).Column    '首行逐个处理
                    Set L = SH.Rows(1).Find(.Cells(1, J).Value)   '在汇总表首行查找列标
                    If Not L Is Nothing Then       '如果存在
                        CL = L.Column              '提取列号
                        .Range(.Cells(2, J), .Cells(.Cells(65536, J).End(3).Row, J)).Copy SH.Cells(65536, CL).End(3)(2)
                        '将工作表被处理的列第二行至尾行的内容，复制到汇总表相同列标的尾行下一单元
                    End If
                Next
            End If
        End With
    Next
End Sub