假设A列是完整的名字，复姓不考虑：B列公式：
=MID(A1,1,1)C列公式：
=SUBSTITUTE(A1,B1,"")这样就提取好了，B列是姓氏，C列就是名字。[……]
Tag Archives: VBA
Excel VBA 宏 常用代码段之读其他文件 读其他Sheets
还记得3月6日总结的遍历指定列的所有行的代码吗？
For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数A = Cells(hang, lie)Next在这个循环里是在当前激活的Sheet下使用的，如何读取其他Sheet[……]
Excel-VBA-UTF-8 地址解码 编码 函数
以下函数可以解码UTF-8地址的中文关键词。
Function URLDecode(ByVal strIn) URLDecode = "" Dim sl : sl = 1 Dim tl : tl = 1[......]Excel VBA常用代码段
B="SDFSDdsfsdf"A=LCase(B)把B转换成小写字母赋值给A
For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数A = Cells(hang, lie)Next遍历第2[……]
VBA 字符串换行 如何表示
VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符：chr(10) 可以生成换行符chr(13) 可以生成回车符vbcrlf 换行符和回车符vbCr 等同于chr(10)vblf 等同于chr(13)例：
Sub test() MsgBox "1&q[......]Excel VBA常用函数
Len(string)计算string长度
Left(string, x)取string左段x个字符组成的字符串
Right(string, x)取string右段x个字符组成的字符串
Mid(string, start,[......]VBA 定义不同类型的变量
Dim 变量 as 类型 ‘定义为局部变量，如 Dim xyz as integerPrivate 变量 as 类型 ‘定义为私有变量，如 Private xyz as bytePublic 变量 as 类型 ‘定义为公有变量，如 Public xyz as singleGlobal 变[……]
Excel-VBA-switch的示例
最近有个同事需要编写个宏，Excel-VBA中需要用到类似php中的swith-case的功能，翻了下，将VBA中类似的示例代码列出来供需要的人参考：
Select Case income Case Is <= 0 profitrank = "<=0" Case[......]Excel-宏在其他计算机无法使用的解决办法
好吧，其他部门的同事找我帮忙写个宏，写好了本机调试OK，他发给别人就不灵了，经过他的尝试，原来是安全设置的问题，求教了下经验，发布出来给碰到同样问题的孩子一个解决办法：本文针对的是Excel 2007。1.首先要显示出开发工具，如果没有，点Excel左上的开始按钮，点Excel选项，然后[……]
Excel-VBA宏中如何取其他sheet的单元格值
最近编写宏，有多个sheet，需要调用其他sheet的单元格值，查了下，方法如下：
sheet2.range("a1")=sheet1.range("a1")直接用sheet数字即可引用对应sheet的单元格，需要的自己记录下。[……]