如何转换字母首字为大写。

ning84

yingbin

gangchang

qianhe

changping

huaping

maosheng

qiaoguang

lingnan

changsheng

chunze

yuehua

beiling

guìhua

guanzha

lianan

jiangjunshan

poshi

xiawan

413191246se

选中该列！格式菜单——大小写——每个单词首字母大写！

ning84

413191246se 发表于 2024-1-16 20:54
选中该列！格式菜单——大小写——每个单词首字母大写！

谢谢回复。Excel 用=PROPER(K2)方法实现。

ning84

学习学习再学习，Fso的应用

1. Private Sub ReadFolderToSheetName()
   
2.      Dim Fso As New FileSystemObject, oFolder As Folder
   
3.          Set Fso = New FileSystemObject
   
4.   Dim Sht As Worksheet
   
5.   Dim Str
   
6.       Set Sht = ThisWorkbook.ActiveSheet
   
7.       With Application.FileDialog(msoFileDialogFolderPicker)
   
8.           If .Show Then
   
9.                Set oFolder = Fso.GetFolder(.SelectedItems(1))
   
10.                
    
11.                Sht.Name = oFolder.Name
    
12.           End If
    
13.       End With
    
14. End Sub
    
15. Private Sub TraverseSheetCreatFolder()
    
16.      Dim Fso As New FileSystemObject
    
17.      Dim oFile As File, oFolder As Folder
    
18.          Set Fso = New FileSystemObject
    
19.      
    
20.      Dim Sht As Worksheet, ii As Integer, PathName
    
21.          
    
22.          For Each Sht In ThisWorkbook.Sheets
    
23.              If InStr(Sht.Name, "Sheet") = 0 Then
    
24.                   ii = ii + 1
    
25.                   'Debug.Print ii, Sht.Name
    
26.                   PathName = ThisWorkbook.Path & "" & Sht.Name
    
27.                   If Fso.FolderExists(PathName) = True Then
    
28.                       Set oFolder = Fso.GetFolder(PathName)
    
29.                       'Debug.Print oFolder.Name, oFolder.Path
    
30.                   Else
    
31.                       'Debug.Print oFolder.Path
    
32.                      
    
33.                       Set oFolder = Fso.CreateFolder(PathName)
    
34.                   End If
    
35.                   
    
36.               End If
    
37.               
    
38.          Next Sht
    
39. End Sub
    
40. Sub CopyFilePasteFile()
    
41.     Dim Fso As New FileSystemObject
    
42.     Dim oFile As File, oFile1 As File
    
43.         Set Fso = New FileSystemObject
    
44.     Dim Rng As Range, Sht As Worksheet
    
45.         Set Rng = Selection
    
46.         Set Sht = Rng.Parent
    
47.     Dim PathName, PathName1
    
48.     Dim ii, jj, Cc, Rr, Str
    
49.         PathName = ThisWorkbook.Path & "" & "model.Pptm"
    
50.         PathName1 = ThisWorkbook.Path & "" & "del.Pptm"
    
51.         
    
52.         Set oFile = Fso.GetFile(PathName)
    
53.         
    
54.         For ii = 6 To Sheets.Count
    
55.              Set Sht = Sheets(ii)
    
56.              PathName = ThisWorkbook.Path & "" & Sht.Name & "Model.Pptm"
    
57.              Debug.Print ii - 5, PathName
    
58.              oFile.Copy PathName, True
    
59.         Next ii
    
60.         Stop
    
61. End Sub

复制代码