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

zyhui1961

    选中某一区域(或单元格),执行代码后,使选定的区域(或单元格)中的每个英文首字母变为大写,达到“绿色”区域模拟的效果,谢谢！

longwin

首字母大写函数：proper()

zyhui1961

longwin 发表于 2024-10-8 11:35
首字母大写函数：proper()

谢谢！用代码在原区域（或单元格）应该方便一些！

taller

taller

1. Sub Demo()
   
2.     For i = 2 To 14
   
3.         s = Cells(i, 3)
   
4.         If s Like "*[一-龟][a-zA-Z]*" Then
   
5.             t = Left(s, 1)
   
6.             For j = 2 To Len(s)
   
7.                 If Mid(s, j, 1) Like "[a-zA-Z]" And Mid(s, j - 1, 1) Like "[一-龟]" Then
   
8.                     t = t & " " & Mid(s, j, Len(s) - j + 1)
   
9.                 Else
   
10.                     t = t & Mid(s, j, 1)
    
11.                 End If
    
12.             Next
    
13.             Cells(i, 3) = t
    
14.         End If
    
15.     Next
    
16. End Sub
    

复制代码

大灰狼1976

VBA也有一个功能相同的：
Debug.Print StrConv("aaa bbb ccc", vbProperCase)
但是紧跟在汉字后面的单词不会被处理。

大灰狼1976

也可以在VBA用工作表函数，我感觉更简单，数据少不考虑效率优劣。
[c2:c14] = [proper(c2:c14)]

zyhui1961

taller 发表于 2024-10-8 11:48

用代码感觉还是方便一此，因为可以直接在某区域（或单元格）操作。
但是我把你这个代码复制到工作表，执行了好像没有反应！
能帮忙直接在工作表里面操作一下吗，谢谢！

cidanji

zyhui1961

cidanji 发表于 2024-10-8 12:04

这个运行很好，谢谢！