Question

基本上，我想要做的是找到特定范围内的特定字母/字符，并能够将其更改为大写和小写（最好使用按钮，即单击一次，上部;再次单击，下部）

目前我有以下内容：

Private Sub btnCapital_Click()
Worksheets("Sheet1").Columns("b").Replace _
What:="d", Replacement:="D", _
SearchOrder:=xlByColumns, MatchCase:=True
End Sub

这仅在B列（不是指定的范围）中查找，而且也不会切换。

感谢任何和所有帮助！

Answer 1

你只需改变一下你的代码：

Private Sub btnCapital_Click()
Sheet1.Range("A1:ZZ9000").Columns.Replace _
What:="d", Replacement:="D", _
SearchOrder:=xlByColumns, MatchCase:=True
End Sub

查找字符串范围内的特定字母并切换格式

1 个答案: