[已解决]如何显示请高手指点

guan88 · 发表于 2010-7-15 19:24

如何显示请高手指点谢谢

vKqYMIkb.rar (3.06 KB, 下载次数: 0)

sp356468826 · 发表于 2010-7-15 19:31

没看懂..=.=

yxw2111 · 发表于 2010-7-15 19:42

这个最佳答案由 yxw2111 给出，感谢 yxw2111 的回答。

单击隐藏图章

BR3D8b8y.rar (5.95 KB, 下载次数: 1)

豆丁 · 发表于 2010-7-15 19:51

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, j%, k%, arr, arrt()
Application.EnableEvents = False
If Target.Address = "$L$1" Then
    arr = Range("b2:h" & [b65536].End(3).Row)
    For i = 1 To UBound(arr)
        If arr(i, 7) = Target Then
            k = k + 1
            ReDim Preserve arrt(1 To 7, 1 To k)
            For j = 1 To UBound(arr, 2)
                arrt(j, k) = arr(i, j)
            Next
        End If
    Next
End If
Range("o2:u65536").ClearContents
Range("o2").Resize(UBound(arrt, 2), 7) = Application.Transpose(arrt)
Application.EnableEvents = True
End Sub

		自动登录	找回密码
密码			注册