[已解决]如何显示请看附件

guan88 · 发表于 2010-4-27 13:45

zPRwDW9j.rar (2.48 KB, 下载次数: 1)

Zipall · 发表于 2010-4-27 13:51

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

单击隐藏图章

添加辅助列后用vlookup

A2输入公式向右向下填充

nyfkklsl.rar (8.31 KB, 下载次数: 3)

guan88 · 发表于 2010-4-27 14:26

谢谢

过江龙 · 发表于 2010-4-27 15:08

用VBA给你做了一个，满意吗？

uPDnguh9.rar (9.28 KB, 下载次数: 0)

紫猪侠 · 发表于 2010-4-27 15:10

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$2" Then
Application.ScreenUpdating = False
Range("A2:E65536").ClearContents
    For Each Rng In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
    If Rng.Value = Target.Value Then
        Rng.Resize(1, 4).Copy
        Sheet2.[a65536].End(3).Offset(1).PasteSpecial (xlPasteValues)
    End If
    Next
Application.ScreenUpdating = True
End If
End Sub

linskying · 发表于 2010-4-27 17:51

学习了。。。

笨笨915 · 发表于 2010-4-30 14:46

太难了,看不懂.为什么要这么做,但真的太厉害了.

YGG1024 · 发表于 2010-4-30 15:21

很好！收藏！

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