备用
可能要删除的内容
风转砂
这个作者很懒,什么都没留下…
展开
-
VBA 利用字典去重获取唯一值列表(案例为一维数组)
'===================================================================='利用字典去重,输入的参数为一个 一维数组,返回为一个起始下标为0的数组Function aGetOnlyList(aList) ’aList为一维数组 列表 Dim Dic, i% Set Dic = CreateObject("scripting.dictionary") '创建字典对象 For i = LBound(aList) To UBound原创 2021-06-27 16:17:34 · 2042 阅读 · 4 评论 -
提取汉字拼音首字符
以下是测试模块Sub 测试() Dim str$ str = InputBox("请输入要识别的字符串") MsgBox str & "的拼音首字母为:" & vbCr & vbCr & getPY(str)End Sub以下是功能实现模块Function PinYin(str As String) As String Select Case Asc(str) Case -20319 To -20284: PinYin = "A"原创 2021-06-26 10:17:49 · 123 阅读 · 0 评论