帮我写一段代码:execl中输入中文转换为拼音首字母
时间: 2023-02-26 18:11:42 浏览: 143
Sub SetCn()
Dim l As Long
Dim i As Integer
Dim s As String
l = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To l
s = Cells(i, "A")
Cells(i, "B") = StrConv(s, vbNarrow)
Next
End Sub
阅读全文