Excel 中VBA程序紧急求助

来源：百度知道 编辑：UC知道 时间：2024/07/06 11:37:18
数据如下
A B
深圳市中央花园
福田中央花园
......
注:我现在想通过VBA来实现以下功能:
用户通过对话框输入关键字"中央花园",然后筛选出符合条件的数据,
并进行替换成"广东省深圳市中央花园" 并显示在B列.
我讲的清楚吗?谢谢各位了,因为我是菜鸟,所以希望各位加上注注释．
请留下QQ以便交流吧

Private Sub CommandButton1_Click()
Dim strName As String
strName = InputBox("请输入名字:") '中央花园
For i = 1 To 65535
'空时退出
If Range("A" & i) = "" Then Exit Sub
'符合条件的替换并在B列显示
If InStr(Range("A" & i), Str) > 0 Then
Range("B" & i) = "广东省深圳市" & Str
End If
Next i
End Sub

sub delay(T as single) dim T1 as single t1=timer do doevents loop while timer-t1<t end sub 调用时，使用 delay 3 即可延时3秒 除用timer函数外，还可以使用gettickcount函数，不过使用它之前要声明它，过程与上面过程差不多，只是参数便是毫秒作为单位 SLEEP函数延时是毫秒级，精确度比较高，但它在延时时会占用很多系统时间，使操作系统暂时无法响应用户操作，所以在长延时时候不适合使用它