word及excel中如何查找与替换包含指定文字的行（列）或段？

发布网友 发布时间：2022-03-08 06:35

我来回答

共5个回答

热心网友 时间：2022-03-08 08:04

步骤1、在Microsoft Office Excel中打开需要修改的文档；

步骤2、点击顶部菜单中的“开始”，然后点击右上方工具栏中的望远镜（查找和选择）图标；

步骤3、在弹出的下拉菜单中点击“替换”，会弹出“查找和替换”窗口；

步骤4、切换到“替换”，在查找内容后的文本框中输入要被替换的文字，比如要把学生信息统计表格中性格列中的“Male”替换为“男”，则在查找内容输入Male，在替换为后的文本框输入男（不要输入双引号），然后点击”全部替换“，系统提示有10处被替换，参见下图，可以发现不仅Male被替换为了男，连Female也被替换成了Fe男，这显然不是想要的结果；

步骤5、出现步骤4的替换结果的原因是替换的时候没有区分大小写，下面重复步骤4的操作，但记得在查找和替换窗口中点击右下方的”选项“按钮，然后鼠标左键选中“区分大小写”前的小方框即可，此时再点击”全部替换“按钮，系统提示有7处被替换，这次Female没有被替换，因为区分了大小写；

步骤6、和步骤6操作类似，在在查找内容后的文本框输入Female，在替换为后的文本框输入女（不要输入双引号），可以把所有Female替换为女，最后效果参见下图；

热心网友 时间：2022-03-08 09:22

在Word中有一项“查找”的功能，利用它我们可以迅速地找到要编辑或者修改的文字，该功能的使用方法如下：单击“编辑”菜单中的“查找”命令，即可弹出“查找和替换”对话框，在“查找内容”中我们可以输入要查找的内容，Word查找不但支持像“*”和“?”这样的常见通配符，还支持像“[]”、“@”等不常见的通配符，要使用这些不常见的通配符必须进行如下设置：在“查找和替换”对话框中，单击“高级”按钮，选中“使用通配符”复选框即可。利用通配符可以令我们的查找工作更加灵活方便，下面就让我们来看一下这些统配符的具体用法。

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-03-08 10:57

不知道你要不要宏，所以只研究了前两题。
第一题：
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-03-08 12:48

在选定区域内替换，只能单击替换命令，不能选择全部替换。对于你前两个问题可以选择替换里的高级替换——格式设置，同样的“段”也可以这样查找与替换，但是列就不行了，我也期待答案。

热心网友 时间：2022-03-08 14:56

你的问题我也比较感兴趣 我和你一起等待答案