平台:MS office 2010 任务:有个excel工作簿,其中有上百个工作表,要求把每一个工作表全部保存为新工作簿,如果一个一个复制出来太傻了,可以用excel自带的VB解决. 方法:打开工作簿,在工作表上点右键,选择“查看代码”,打开Microsoft Visual Basic for Application对话框,在菜单栏,单击“插入”—“模块”.在模块对话框中输入如下代码: Private Sub hjs() Dim sht As Worksheet Dim ThisBook As…
excel 获取中文拼音首字母 CreateTime--2018年5月31日08:50:42 Author:Marydon 1.情景展示 想要获取姓名的拼音首字母 2.实现方式 通过使用excel的宏命令来实现 第一步:开启宏命令: 第二步:创建宏命令 切换到宏视图 插入-->模块 将下面代码粘贴到弹出的模块命令窗口 Function pinyin(p As String) As String i = Asc(p) Select Case i Case - To -: pinyin = &quo…