如何选择一列数据中同样的字

marmot777 · 发表于 2024-7-23 18:14

$R9554}YBY93H_Q{M$@1}C1K.png$

怎么选择这一列数据中的所有“仓”字？

饮冰e士 · 发表于 2024-7-23 19:02

似乎没有这种功能吧？坐等大神

杨雪18364822522 · 发表于 2024-7-23 21:01

具体要求没看明白

marmot777 · 发表于 2024-7-23 21:47

杨雪18364822522 发表于 2024-7-23 21:01
具体要求没看明白

B列数据每一行都有一个“仓”字，我要选择所有“仓”字，然后修改这个字的颜色。

杨雪18364822522 · 发表于 2024-7-23 21:54

1. 将 Excel 中的整个工作表复制粘贴到 Word 中

2. 在 Word 中按 Ctrl+H，会出现“查找和替换”对话框 --> 在“查找内容”区域输入“仓”--> 点击“更多”按钮

3. 在扩展开来的选项区域点击“格式”按钮 -->“字体”

4. 在弹出的对话框中选择“字体”选项卡 --> 将字体依次设置为加粗和红色 --> 点击“确定”

5. 现在回到了“查找和替换”对话框 --> 点击“全部替换”按钮

稍等片刻，Word 中会弹出一个对话框，提示替换已经全部完成。

点击“确定”，关闭“查找和替换”对话框。

现在 Word 表格中所有的“仓”都替换成了加粗的红色字体。

6. 将 Word 中的表格复制粘贴到 Excel。

ww87725244 · 发表于 2024-7-23 22:00

选择是不可能了，改变字体颜色还是可以的

ww87725244 · 发表于 2024-7-23 22:01

部分地方改成具体数据源就可以了

Sub aa()
Dim rng, i, s
s = Application.InputBox("请输入你想更改颜色的文字")
If s = "" Then Exit Sub
With Sheet2
For Each rng In .Range("a1:a" & .UsedRange.Rows.Count)
For i = 1 To Len(rng.Value)
If rng.Characters(i, Len(s)).Text = s Then
rng.Characters(i, Len(s)).Font.Color = vbRed
End If
Next
Next
End With
End Sub

复制代码

杨雪18364822522 · 发表于 2024-7-23 22:25

ww87725244 发表于 2024-7-23 22:01
部分地方改成具体数据源就可以了

学习了果断收藏

沈默00 · 发表于 2024-7-24 07:03

改变字体颜色，必须VBA，，

jiangin001 · 发表于 2024-7-24 08:52

VBA把，改字可以直接操作。改颜色得借助vba

		自动登录	找回密码
密码			免费注册

[求助] 如何选择一列数据中同样的字

评分