[已解决]用INDEX和SMALL数组函数运行太慢，请高手帮忙用VBA解决问题，感谢！

clb1210

=INDEX(总表!A:A,SMALL(IF(总表!$F:$F="销售",ROW(总表!$F:$F),65536),ROW(1:1)))&""，见附件，请帮忙用VBA解决，感谢！

最佳答案

月排行榜 / 总排行榜

上清宫主

2017-10-13 09:14

改自帮助中的示例程序
Sub test()
Sheets("销售").Select
Rows("2:1000").Clear
r% = 1
With Worksheets("总表")
    Set c = .Range("g:g").Find("销售", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            r = r + 1
            .Range("a" & c.Row & ":g" & c.Row).Copy Cells(r, 1)         
            Set c = .Range("g:g").FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

跳转到最佳答案楼层

MRnightf

=SUMIFS(总表!F$1:F$1000,总表!A$1:A$1000,A2,总表!G$1:G$1000,G2)

clb1210

MRnightf 发表于 2017-10-12 09:16
=SUMIFS(总表!F$1:F$1000,总表!A$1:A$1000,A2,总表!G$1:G$1000,G2)

用了，不行，解决不了问题。最好是用VBA，非常感谢！

clb1210

clb1210 发表于 2017-10-12 21:34
用了，不行，解决不了问题。最好是用VBA，非常感谢！

我需要引用总表F列有“销售”两个字的整行数据。

上清宫主

改自帮助中的示例程序
Sub test()
Sheets("销售").Select
Rows("2:1000").Clear
r% = 1
With Worksheets("总表")
    Set c = .Range("g:g").Find("销售", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            r = r + 1
            .Range("a" & c.Row & ":g" & c.Row).Copy Cells(r, 1)         
            Set c = .Range("g:g").FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

clb1210

上清宫主 发表于 2017-10-13 09:14
改自帮助中的示例程序
Sub test()
Sheets("销售").Select

太好用了，非常感谢！如果能给解释就更好了。

clb1210

clb1210 发表于 2017-10-13 20:57
太好用了，非常感谢！如果能给解释就更好了。

还有一点，如果“总表“工作表数据有改动时，”销售“工作的数据不能自动更新，需要手动运行VBA才能更新，这点能帮忙改良一下吗！谢谢！

上清宫主

高级筛选更适合些：
Sheets("销售").Cells.Clear
Sheets("总表").Select
Application.CutCopyMode = False
Range("AA1:AA2") = [{"单位类型";"销售"}]
Range("a1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "AA1:AA2"), CopyToRange:=Sheets("销售").Range("a1"), Unique:=False
Range("AA1:AA2").Clear

要自动的话加入到单元格事件中去吧