选中某一区域(或单元格),执行代码后,使选定的区域(或单元格)中的每个英文首字...

taller

zyhui1961 发表于 2024-10-8 11:59
用代码感觉还是方便一此，因为可以直接在某区域（或单元格）操作。
但是我把你这个代码复制到工作表，执 ...

代码已经是针对你的示例文件写的，请楼主自行研究一下如何使用VBA代码

kyxfyzg

参与一下。。。。。

zyhui1961

kyxfyzg 发表于 2024-10-8 14:24
参与一下。。。。。

我想执行代码只对选中的单元格（或区域）有效，谢谢！

kyxfyzg

zyhui1961 发表于 2024-10-17 18:13
我想执行代码只对选中的单元格（或区域）有效，谢谢！

Sub 首字母大写()
Dim ss As Range, sj, n
Set reg = CreateObject("vbscript.regexp") '创建正则表达式引用并赋值给变量reg
With reg
    .Global = True       '全局匹配，默认为false
    .Pattern = "[a-zA-Z]+"     '指定匹配模式，引号内写正则表达式
    For Each ss In Selection
    Set sj = .Execute(ss)  '对()内的字符执行正则表达式搜索
    If .Test(ss) Then       '测试匹配是否成功
        For Each ss1 In sj '循环搜索结果
            n = WorksheetFunction.Proper(ss1)
            ss = Replace(ss, ss1, n)
        Next ss1
    End If
    Next ss
End With
End Sub