[求助]求几条关於excel查找替换换的宏 >> Excel相关 >> Excel吧

来源：蜘蛛抓取(WebSpider) 时间：2011-03-22 14:05 标签： excel查找替换
您还未登陆，请登录后操作！
excel宏代码求助
是按CTRL+q激活窗口，进行一个查找替换日期的工作。查找的范围是当前的整个表。哪位高手能不能不改表原来执行的任务下，把，CTRL+Q打开的窗口进行查找的范围的定在C列而不是整个表呢。因为单号一般查找的时候为了图方便只按四个数字，这个可能跟电话号码重复了。。。
Sub findString()
Dim findString As String
findString = InputBox(&请输入要查找的字符&)
If findString = && Then
findStringAddTime findString
End If
End Sub
Private Sub findStringAddTime(ByVal findString As String)
Dim activeOrder As Range
Dim searchRange As Range
Dim operatingRange As Range, templateAndLastRange As Range
Set activeOrder = Cells.Find(What:=findString, After:=ActiveCell)
If activeOrder Is Nothing Then
MsgBox (&找不到匹配单元格&)
activeOrder.Select
Dim msgResult As Integer
activeOrder.Interior.Color = 255
msgResult = MsgBox(&找到的订单号：& & activeOrder.Value & &,如果不是您要找的请按否继续&, vbYesNoCancel, vbDefaultButton1 + vbOKCancel)
If msgResult = vbYes Then
Debug.Print &yes&
Set operatingRange = Cells(activeOrder.Row, 7)
operatingRange.Value = Int(Now)
ElseIf msgResult = vbNo Then
Debug.Print &no&
findStringAddTime findString
Debug.Print &取消&
色彩还原 activeOrder
End Sub
Sub 色彩还原(ByVal location As Range)
With location.Interior
.Pattern = xlNone
&.TintAndShade = 0
&.PatternTintAndShade = 0
With location.Font
.ColorIndex = xlAutomatic
&.TintAndShade = 0
End With
End Sub
<img onerror="imgDelByClass('comimg_box');" class="piczoom mpic" alt="下面这段
Sub
End If
If （activeOrder Is Nothing ）OR（activeOrder.Column && 3） Then
MsgBox (&找不到匹配单元格&)
Exit Sub
End If
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注EXCEL怎么快速删除查找出带特定字符的多行_百度知道
EXCEL怎么快速删除查找出带特定字符的多行
　　如图，要删除包含&abc&的行（或者反过来，保留包含&abc&的行，其他删除）　　第1步，按Ctrl+F，查找abc，点【查找全部】后在结果框按Ctrl+A。如果要删除包含abc的行，则：关闭查找替换对话框，然后右键单击第1步选中的单元格之一，删除，整行。　　要保留包含&abc&的行，则按以下步骤继续：　　第2步，关闭查找替换对话框，按下CTRL+9，将第1步选中的单元格所在的行隐藏。　　第3步，按F5键，定位”可见单元格“。　　第4步，在第3步选中的单元格区域右键单击→删除，整行。　　第5步，单击”全选“按钮，右键→取消隐藏。
其他类似问题
为您推荐：
编辑=&查找=&输入你要查找的内容=&点击下面的查找全部=&按快捷键CTRL+A (全选)=&在工作表中任意被选中的行上点击鼠标右键=&选删除=选整行删除
你好 要是我要保留特定的字符的行 删掉其他的呢 ？谢谢
excel&没有反向选择我只能用VBA帮你做了一个 反向选择其实 你说的这个问题用VBA 很容易一步到位的实现.现在的问题是因为我不知道你要查找什么内容,在什么地方查找,所以,我就不另外写代码了.只给你一个反向选择的 功能宏.你可以把你的数据表内容复制到这个附件里来操作.或者把这个宏复制到你的工作薄里也是可以的..
来自团队：
其他1条回答
加辅助列，用公式判断包含特定字符的就取0，否则取行号，对辅助列复制粘贴值，这样排序后删除值为0，然后按行号顺序排序就是了；=if(isstr(&XXX&,A2)&0,0,row())
你好 不是怎么懂EXCEL 可以详细点吗 谢谢
你抓图贴上来
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁访问本页面，您的浏览器需要支持JavaScript

我要回帖

更多关于 excel查找替换 的文章

 

随机推荐