word及excel中如何查找与替换包含指定文字的行(列)或段?
发布网友
发布时间：2022-04-23 18:36
共5个回答
热心网友
时间：2022-05-01 19:47
步骤1、在Microsoft Office Excel中打开需要修改的文档；
步骤2、点击顶部菜单中的“开始”，然后点击右上方工具栏中的望远镜（查找和选择）图标；
步骤3、在弹出的下拉菜单中点击“替换”，会弹出“查找和替换”窗口；
步骤4、切换到“替换”，在查找内容后的文本框中输入要被替换的文字，比如要把学生信息统计表格中性格列中的“Male”替换为“男”，则在查找内容输入Male，在替换为后的文本框输入男（不要输入双引号），然后点击”全部替换“，系统提示有10处被替换，参见下图，可以发现不仅Male被替换为了男，连Female也被替换成了Fe男，这显然不是想要的结果；
步骤5、出现步骤4的替换结果的原因是替换的时候没有区分大小写，下面重复步骤4的操作，但记得在查找和替换窗口中点击右下方的”选项“按钮，然后鼠标左键选中“区分大小写”前的小方框即可，此时再点击”全部替换“按钮，系统提示有7处被替换，这次Female没有被替换，因为区分了大小写；
步骤6、和步骤6操作类似，在在查找内容后的文本框输入Female，在替换为后的文本框输入女（不要输入双引号），可以把所有Female替换为女，最后效果参见下图；
热心网友
时间：2022-05-01 21:05
1、任意单个字符：“?”可以代表任意单个字符，输入几个“?”就代表几个未知字符。比如我们输入“?国”就可以找到诸如“中国”、“美国”、“英国”等字符；输入“???国”可以找到“孟加拉国”等字符。
2、任意多个字符：“*”可以代表任意多个字符。比如我们输入“*国”就可以找到“中国”、“美国”、“孟加拉国”等字符。
3、指定字符之一：“[]”框内的字符可以是指定要查找的字符之一，比如输入“[中美]国”就可以找到“中国”、“美国”。
4、指定范围内的任意单个字符：“[x-x]”可以指定某一范围内的任意单个字符，比如输入“[a-e]ay”就可以找到“bay”、“day”等字符，要注意的是指定范围内的字符必须用升序。
5、排除指定范围内的任意单个字符：“[!x-x]”可以用来排除指定范围内的任意单个字符，比如我们输入“[!c-f]”就可以找到“bay”、“gay”、“lay”等字符，但是不会找到“cay”、“day”等字符。要注意范围必须用升序。
6、指定前一字符的个数：“{n}”可以用来指定要查找的字符中包含前一字符的个数，比如输入“cho{1}se”就是说包含1个前一字符“o”，可以找到“chose”，输入“cho{2}se”就是说包含2个前一字符“o”，可以找到“choose”。
7、指定前一字符数范围：“{x,x}”可以用指定要查找字符中前一字符数范围，比如我们输入“cho{1,2}”，则说明包含前一字符“o”数目范围是1-2个，则可以找到“chose”、“choose”。
8、一个以上的前一字符：“@”可以用来指定要查找字符中包含一个以上的前一字符，比如我们输入“cho@se”，就可以找到“chose”、“choose”等字符。
9、指定起始字符串：“<”可以用来指定要查找字符中的起始字符串，比如我们输入“<ag”，就说明要查找的字符的起始字符为“ag”，可以找到“ago”、“agree”、“again”等字符。
10、指定结尾字符串：“>”可以用来指定要查找字符中的结尾字符串，比如我们输入“er>”，就说明要查找的字符的结尾字符为“er”，可以找到“ver”、“her”、“lover”等等。
另外为了更精确的查找，你还可以把以上的通配符联合起来使用，比如我们输入“<(ag)*(er)>”则表示查找所有以“ag”开头并且以“er”结尾的单词，注意这时需要用括号将来区分开不同的查找规则。最后还要注意如果要查找已经被定义为通配符的字符，如“*”、“?”等字符，必须在该字符前面加上反斜杠“\”，如输入“\*”则表示查找字符“*”。
热心网友
时间：2022-05-01 22:40
第一题：
Sub 查找行内容()
For i = 1 To wdPropertyLines
With Selection
If .Start <> ActiveDocument.Content.End - 1 Then
.Find.ClearFormatting
With .Find
.Text = "鲁迅"
End With
.Find.Execute
.MoveLeft Unit:=wdCharacter, Count:=1
.HomeKey wdLine
.MoveDown Unit:=wdLine, Extend:=1
.Range.HighlightColorIndex = wdRed
.MoveRight Unit:=wdCharacter, Count:=1
End If
End With
Next
End Sub
第二题：
Sub 查找表内容()
For i = 1 To ActiveDocument.Tables.Count
With Selection '
.Find.ClearFormatting
With .Find
.Text = "兰州队"
End With
.Find.Execute
.Range.Rows.Select
.Range.HighlightColorIndex = wdRed
.MoveRight Unit:=wdCharacter, Count:=1
End With
Next
End Sub
那边的题我修改回答，好象不行。就贴这儿吧。
代码的依据的表格式样：A-F是页面的列，第一行是固定标题行，第2-47行是数据行，此后每46行是新页。
首先，设置全部单元格为加粗线，执行代码则会将47、93、139。。。行的下框线加粗。所以，你需要根据你的表格修改代码。不懂的地方HI我。
Sub Bottomline()
For i = 2 To [A65536].End(xlUp).Row
If (i - 1) Mod 46 = 0 Then
Range("A" & i & ":F" & i).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Next
End Sub
热心网友
时间：2022-05-02 00:31
热心网友
时间：2022-05-02 02:39
