找特定字符串返回特定值

找特定字符串返回特定值 比如字符串里面包含 张三 李四  王五  就返回 “办公室”  Sub test()         Dim i As Long         Application.ScreenUpdating = False  '关闭屏幕刷新         For i = 3 To Cells(Rows.Count, "G").End(xlUp).Row             I

>>阅读原文<<