Question

跪求excel 宏代码

主要功能是可以按姓名查找 例如李** 输入李或L可以找表格中的所有姓李的人员 谢谢

Answer 1

输入英文的比较麻烦，如果输入李的很容易

代码如下：

Option Explicit

Sub test()
Dim a As Range, b As Range
Dim tem As String, ent As String
Set a = ActiveSheet.UsedRange
ent = Application.InputBox("输入要查询的姓" & vbCrLf & vbCrLf & "比如： 李", "C0de_By_F0reSt*", "李", , , , , 2)
For Each b In a
If b.Value Like ent & "*" Then tem = tem & vbCrLf & b.Value
Next b
MsgBox "查询结果如下：" & vbCrLf & tem, , "C0de_By_F0reSt*"
Set a = Nothing
End Sub

Answer 2

这没有规定代码，你在操作过程中把它录制下来就可以，关闭EXCEL时提醒是否保存宏，你点是即可。

Answer 3

自己录制个宏。

Answer 4

这个不是宏的问题，我来琢磨下。