关于EXCEL里面的汉字转拼音首字母的函数

关于EXCEL里面的汉字转拼音首字母的函数

近日由于制作通讯录需要，在EXCEL中需要对人名转换为拼音首字母，以前是用了一款“实用汉字转拼音”的免费软件的，后来在excelhome和officefans中看到了好些关于这个的文章，因而本次制作采用了如下的第2种方法。也搜索了一下，故记录之，有些网站地址也没有记全，只能对不起原作者了。

1. 采用定义名称和LOOKUP的方法

定义一个名称叫“拼音”的，做法： 插入->名称->定义 ，输入名称“拼音”，添加，在引用位置中键入
“={“”,”";”吖”,”A”;”八”,”B”;”嚓”,”C”;”咑”,”D”;”鵽”,”E”;”发”,”F”;”猤”,”G”;”铪”,”H”;” 夻”,”J”;”咔”,”K”;”垃”,”L”;”嘸”,”M”;”旀”,”N”;”噢”,”O”;”妑”,”P”;”七”,”Q”;”囕”,”R”;” 仨”,”S”;”他”,”T”;”屲”,”W”;”夕”,”X”;”丫”,”Y”;”帀”,”Z”}”
注，不包括外面的引号（下同）。

那么，比如在A3中有”陈”，则在B3中输入”=VLOOKUP(A3,拼音,2)”，则会得到”C”。

不过此法有时候也会出错，比如”黄”，”宏”，就会得到J，”奕”会得到”Z”，看来还不够完善。

2. 自定义函数。
”””””””””””
‘VBscript代码提供者：小白
‘联系方法：
‘E-mail:xiaobai@17560.net
‘
‘VBA代码转换者：惟惟
‘联系方法：Email:wuweiyin@yeah.net
‘个人博客：http://weiwei.blog.163.com
‘如有不正确的地方，请提出来或是帮忙完善
‘谢谢
”””””””””””””””
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = “A”
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = “B”
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = “C”
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = “D”
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = “E”
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = “F”
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = “G”
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = “H”
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = “J”
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = “K”
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = “L”
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = “M”
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = “N”
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = “O”
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = “P”
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = “Q”
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = “R”
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = “S”
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = “T”
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = “W”
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = “X”
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = “Y”
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = “Z”
Else ‘如果不是中文，则不处理
getpychar = char
End If
End Function

Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function

那么，在VBA编辑器里面->插入->模块->贴入上述代码，那么。
那么，比如在A3中有”实验室”，则在B3中输入”=getpy(A3)”，则会得到”SYS”。
不过此法有时候也会出错，比如”雯”，”雪”，”学”等，就无法得到拼音，看来也还不够完善。

3.利用微软拼音（这个是整词转换的）
本文较长，我也没有仔细用过，不能评价
http://www.excelpx.com/home/show.aspx?id=199&cid=15
或
http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=229924&replyID=&skin=0
功能比较强大的

4.也有直接建立汉字和拼音的对应库表，直接查询的。：）

非常好的Excel免费工具包-Extool (全部功能介绍）

非常好的Excel免费工具包-Extool

下载地址：http://www.excel-extools.com/download.php?file=extools2.0.zip

安装，解压到一个目录，在excel的工具->加载宏->浏览，选xla文件，就会新增一个菜单项的。

安装后界面：

基本功能介绍：其实这就是一个加了菜单功能之后的宏包，不过内容可是加密的的。

部分基本功能介绍：

Favorite file：添加常用的excel文件到列表，便于打开
Favorite text：添加常用的输入文字，方便录入

Range：选区（这些功能我都很喜欢，每个函数都很好！，本都想编的，不过得花许多时间，有些还不会编）
Delete empty cells in column：删除选区内所有列中的空格项，后续项向上移动
Delete empty rows in selections： 选择一个区域，将其内的所有空行删除（注意，是整行删除）
Transpose：转置，其实这个excel本来就有，它的做法是：在执行菜单命令之前，要先有选区，然后点击需要转置到的左上角位置；
Reverse Order（Flip cells）：逆向，选择一行或者一列选区，会得到逆序结果；
Check for duplicate：检查重复数据，结果可以是删除或者高亮；
Multi selection copy：多个选区的拷贝。excel中，多个选区的选择是按ctrl来完成的，但是非常奇怪的是无法粘贴，怪异，这个宏可以完成。
Save selection as files：选择一个区域，存为excel,csv,txt文件。虽说excel本身也可做到，但是对有大量此需要的朋友确非常实用。我就是在donation software的网站上看到朋友提问和回答这个问题才发现这个软件的。
Save selection as html： 选择区域，写出html的表格代码，好功能，也能写出格式，且代码是比较精简的。相比excel本身的输出html的大量冗余代码要好的多。
Save selection as picture：选择区域，输出图像（png,gif,jpeg），好。

看了半天才只是1/10的菜单，哇，看来得几次才介绍的完了，都是我很梦想得到的功能（虽然我一般用tecplot,origin或者sigmaplot来绘制图表，但是数据整理方面还是excel做的最方便，包括选择，删除，计算等），看来开发者确实是个对excel不足之处很有认识的高手啊，想到和许多没有想到的功能它都有。

其他的功能介绍待添加，包括工作表对比，删除所有空表，sheet排序，多sheets打印，自动尾数字变上下标，公式的绝对引用和相对引用转换等等好功能。

继续，
Worksheet目录：
View：视图控制，包括下列项的显示与否，网格线，行列的标题（就是A，B，C，1，2，3等），水平垂直滚动条，sheet标签，打印页显示，显示为公式，状态栏，工具栏等。
Compare WorkSheets：依次列出两个sheet中所有内容不同的格子的值的不同和公式的不同，很好
Create WorkSheet Map：给出一个表格中每个格子的内容情况，标明某个格子是文本，数字，公式，错误或者逻辑
Sort Sheets：将标签排序
Delete Empty Sheet：删除空sheet
Hide Blank Row / Column At end of Sheet：选右下角，隐藏掉A1到此右下角外的所有行列部分，（注意，和Hide不同，是真的隐藏，可以吓人一跳的哦）
UnHide —：这两个是反隐藏——显示所有的sheets或者某个sheet
Remove HyperLinks in Worksheet——去掉所有页面内的超链接，好功能。MS自作主张加上的超链接，许多时候个人并不喜欢，要去掉还不是一般的麻烦，这个功能我很喜欢。
Reset Last Cell——似乎是回到左上角？

Workbook（这些功能我倒比较少用）
Save and Backup：文件存盘的同时做备份
close all saved workbook：关闭掉所有保存了的文件
close and delete current workbook： 关闭并删除本文件（可能在临时文件时有用）
close all workbooks without saving：关闭所有文件，不做保存（对于只是读取许多文件的时候有用）

Application：
List All Font：列出所有字体
Clear the Recently files list：清除最近的使用文件列表

Select：选择，也是一个很好的工具箱，有点类似AutoCAD里面的quickselect
Conditional Select cells（rows） by Value： 按数值过滤器选择单元格或者行，包括：介乎多少之间，大于，小于，等于，正则表达式等等。方便选取数值
Conditional Select cells by Format： 按格式过滤器选择单元格，包括，正体斜体，颜色，字体大小。可以选择一个单元格作为参照。
Select Cells With Max（Min） Value： 选择最大（最小）的数值所在的格，相同时选出第一个。Excel本身的Max只给出最大值而没有位置。
Select Cells With error：选中出错的单元格
Select last cell：选中最右列和最下行的相交单元格
Select used area：选中图表中最左上角和最右下角形成的区域
Select to right（bottom）：将选区扩展到有内容的最右边或者最下边，似乎有些bug。
Select all sheets：选中所有的sheet
Select all empty sheets：选中所有的空Sheet

Text：不错的文本处理
包含
Case：改变大小写
Insert：在所有字符串前面，后面，或者从左偏移地 加入一个新的字符串
Trim：去掉左，或右，或全部 等空格，或者前后各剪切掉一定长度的字符
Remove： 去掉指定字符
Combine：横向进行字符串的合并，可以加空格

Formula and Numbers：
copy cells formula as is (extra copy)： 精确拷贝公式内容。有时候，我们想拷贝单元格内的公式，但是一移位粘贴，excel非常聪明地就帮我们按照相对坐标对公式进行修改，现在有这个功能就有更多的选择了。
Convert Formula to Constant Value：将公式内容改成数值，这个不错，以前经常得拷贝，选择性粘贴-数值几步
Convert Between Absolute and Relative Reference：在绝对引用和相对引用中转换，很好，虽然$很让人喜欢，不过大量输入的时候可挺让人烦躁的。
Perform Math Calculation on Selection：对选择内容进行批量加减乘除，也挺好。
Unit Converter：将选择内容在两种单位制间转换，要是能帮忙加上一些强度、容重之间的转换就好了
round number： 真正的四舍五入
convert percent to number：百分制变数字
covert number to ordinal：把数字变成1st,2nd之类
Convert Number to text ：把数字变成英文的one two ten hundred
Convert Between Arabic and Roman： 在阿拉伯数字和罗马数字间转换
Insert random number to selection： 在选区内插入随机数

Format：
Set x2：set subscript/superscript ：将最后的一位文字或者数字变成下标或者上标（好功能）
Word Wrap On/off：自动换行开关
Center Verticall： 直接垂直居中

Print
Print multiple sheets：打印多个sheets
Set filepath as header /footer：把文件的路径打印在上方或者下方

Date：（似乎作用不大）
Number of days between two days： 计算两天之间的天数
add days to date： 把某天加上天数得到新一天

非常好的Excel免费工具包-Extool (全部功能介绍）

非常好的Excel免费工具包-Extool

下载地址：http://www.excel-extools.com/download.php?file=extools2.0.zip

安装，解压到一个目录，在excel的工具->加载宏->浏览，选xla文件，就会新增一个菜单项的。

安装后界面：

基本功能介绍：其实这就是一个加了菜单功能之后的宏包，不过内容可是加密的的。

部分基本功能介绍：

Favorite file：添加常用的excel文件到列表，便于打开
Favorite text：添加常用的输入文字，方便录入

Range：选区（这些功能我都很喜欢，每个函数都很好！，本都想编的，不过得花许多时间，有些还不会编）
Delete empty cells in column：删除选区内所有列中的空格项，后续项向上移动
Delete empty rows in selections： 选择一个区域，将其内的所有空行删除（注意，是整行删除）
Transpose：转置，其实这个excel本来就有，它的做法是：在执行菜单命令之前，要先有选区，然后点击需要转置到的左上角位置；
Reverse Order（Flip cells）：逆向，选择一行或者一列选区，会得到逆序结果；
Check for duplicate：检查重复数据，结果可以是删除或者高亮；
Multi selection copy：多个选区的拷贝。excel中，多个选区的选择是按ctrl来完成的，但是非常奇怪的是无法粘贴，怪异，这个宏可以完成。
Save selection as files：选择一个区域，存为excel,csv,txt文件。虽说excel本身也可做到，但是对有大量此需要的朋友确非常实用。我就是在donation software的网站上看到朋友提问和回答这个问题才发现这个软件的。
Save selection as html： 选择区域，写出html的表格代码，好功能，也能写出格式，且代码是比较精简的。相比excel本身的输出html的大量冗余代码要好的多。
Save selection as picture：选择区域，输出图像（png,gif,jpeg），好。

看了半天才只是1/10的菜单，哇，看来得几次才介绍的完了，都是我很梦想得到的功能（虽然我一般用tecplot,origin或者sigmaplot来绘制图表，但是数据整理方面还是excel做的最方便，包括选择，删除，计算等），看来开发者确实是个对excel不足之处很有认识的高手啊，想到和许多没有想到的功能它都有。

其他的功能介绍待添加，包括工作表对比，删除所有空表，sheet排序，多sheets打印，自动尾数字变上下标，公式的绝对引用和相对引用转换等等好功能。

继续，
Worksheet目录：
View：视图控制，包括下列项的显示与否，网格线，行列的标题（就是A，B，C，1，2，3等），水平垂直滚动条，sheet标签，打印页显示，显示为公式，状态栏，工具栏等。
Compare WorkSheets：依次列出两个sheet中所有内容不同的格子的值的不同和公式的不同，很好
Create WorkSheet Map：给出一个表格中每个格子的内容情况，标明某个格子是文本，数字，公式，错误或者逻辑
Sort Sheets：将标签排序
Delete Empty Sheet：删除空sheet
Hide Blank Row / Column At end of Sheet：选右下角，隐藏掉A1到此右下角外的所有行列部分，（注意，和Hide不同，是真的隐藏，可以吓人一跳的哦）
UnHide —：这两个是反隐藏——显示所有的sheets或者某个sheet
Remove HyperLinks in Worksheet——去掉所有页面内的超链接，好功能。MS自作主张加上的超链接，许多时候个人并不喜欢，要去掉还不是一般的麻烦，这个功能我很喜欢。
Reset Last Cell——似乎是回到左上角？

Workbook（这些功能我倒比较少用）
Save and Backup：文件存盘的同时做备份
close all saved workbook：关闭掉所有保存了的文件
close and delete current workbook： 关闭并删除本文件（可能在临时文件时有用）
close all workbooks without saving：关闭所有文件，不做保存（对于只是读取许多文件的时候有用）

Application：
List All Font：列出所有字体
Clear the Recently files list：清除最近的使用文件列表

Select：选择，也是一个很好的工具箱，有点类似AutoCAD里面的quickselect
Conditional Select cells（rows） by Value： 按数值过滤器选择单元格或者行，包括：介乎多少之间，大于，小于，等于，正则表达式等等。方便选取数值
Conditional Select cells by Format： 按格式过滤器选择单元格，包括，正体斜体，颜色，字体大小。可以选择一个单元格作为参照。
Select Cells With Max（Min） Value： 选择最大（最小）的数值所在的格，相同时选出第一个。Excel本身的Max只给出最大值而没有位置。
Select Cells With error：选中出错的单元格
Select last cell：选中最右列和最下行的相交单元格
Select used area：选中图表中最左上角和最右下角形成的区域
Select to right（bottom）：将选区扩展到有内容的最右边或者最下边，似乎有些bug。
Select all sheets：选中所有的sheet
Select all empty sheets：选中所有的空Sheet

Text：不错的文本处理
包含
Case：改变大小写
Insert：在所有字符串前面，后面，或者从左偏移地 加入一个新的字符串
Trim：去掉左，或右，或全部 等空格，或者前后各剪切掉一定长度的字符
Remove： 去掉指定字符
Combine：横向进行字符串的合并，可以加空格

Formula and Numbers：
copy cells formula as is (extra copy)： 精确拷贝公式内容。有时候，我们想拷贝单元格内的公式，但是一移位粘贴，excel非常聪明地就帮我们按照相对坐标对公式进行修改，现在有这个功能就有更多的选择了。
Convert Formula to Constant Value：将公式内容改成数值，这个不错，以前经常得拷贝，选择性粘贴-数值几步
Convert Between Absolute and Relative Reference：在绝对引用和相对引用中转换，很好，虽然$很让人喜欢，不过大量输入的时候可挺让人烦躁的。
Perform Math Calculation on Selection：对选择内容进行批量加减乘除，也挺好。
Unit Converter：将选择内容在两种单位制间转换，要是能帮忙加上一些强度、容重之间的转换就好了
round number： 真正的四舍五入
convert percent to number：百分制变数字
covert number to ordinal：把数字变成1st,2nd之类
Convert Number to text ：把数字变成英文的one two ten hundred
Convert Between Arabic and Roman： 在阿拉伯数字和罗马数字间转换
Insert random number to selection： 在选区内插入随机数

Format：
Set x2：set subscript/superscript ：将最后的一位文字或者数字变成下标或者上标（好功能）
Word Wrap On/off：自动换行开关
Center Verticall： 直接垂直居中

Print
Print multiple sheets：打印多个sheets
Set filepath as header /footer：把文件的路径打印在上方或者下方

Date：（似乎作用不大）
Number of days between two days： 计算两天之间的天数
add days to date： 把某天加上天数得到新一天

一本很好的EXCEL VBA的编程书

一本很好的EXCEL VBA的编程书

在学校图书馆借的，几年前的了。之前我一直觉得学习软件或者语言看帮助就够了，但是最近觉得还缺少了一些比较基础的东西，必须进行学习。

看来以后我的观点可以如下：一般对于软件或者语言，经常是有必要的时候，会很快的冲几步，找到自己需要的功能或者语句，迅速完成目标，然后静思，并通过对软件或者语言的特性介绍进行翻阅，思考他们也没有比现有软件多出的创意，能否组合出意料不到结果。假如需要继续提高的话，就必须通读帮助（因为这个是作者公开给大家的部分），假如有好书的话，可以精读，读的时候，不必强求按顺序，可以按喜好随便将书中感兴趣的部分看完。这样子，不会觉得看科技书是一种负担。

废话半天，忘记说这本书的名字了——Excel 2003高级VBA编程宝典
China-pub这里有详细的介绍，照抄几段：

【原 书 名】 Excel 2003 Power Programming with VBA
【原出版社】 John Wiley & Sons
【作　　者】 （美）John Walkenbach [同作者作品] [作译者介绍]
【译　　者】 盖江南[同译者作品] 王勇 等
【丛 书 名】 宝典丛书
【出 版 社】 电子工业出版社

JohncWalkenbach是享有Nr.0Spreadsheet美誉的国际知名作者,是电子表格软件方面的领导权威,是美国Wiley出版公司出版的Excel系列丛书的总策划和总编辑,并且他还是JWalkcandcAssociatesclnc.0公司的负责人,1这是一家总部在美国圣地亚哥的咨询公司,专门致力于电子表格应用程序的开发.

John编写了30多部电子表格软件方面的书籍,有很多书籍在亚马逊网站赢得了5星级的评价,其中的《Excelc2003公式与函数应用宝典》.《中文版Excelc2003宝典》和《Excel应用技巧宝典》已由电子工业出版社引进翻译出版并畅销至今.他还为各大报刊杂志撰写了300多篇文章,其中不乏大量的知名计算机专业杂志.他还负责维护一个网站“ThecSpreadsheetcPage”(网址是www.1j-walk.1com／ss),并且是PowercUtilitycPak的开发者,这是一个MicrosoftcExcel加载宏,该加载宏受到广大使用者的一致好评.John毕业于密苏里大学,并从蒙大拿大学获得了一个硕士学位和一个博士学位.

除了计算机和电子表格软件的专长之外,John还是一位十分热爱生活的人士,他对吉他.音乐.小说.数码摄影以及侍弄花草都饶有兴趣.

看了此书，许多未解问题都得到解答，更难得的是，在配套光盘里除了有所有例题代码之外，还有一本英文PDF全书！84M！，不知道是我孤陋寡闻还是外国书会有这样的无私，不容易啊。推荐作为睡觉前读物：）

emule上也能搜到好几个版本的此书，好像excel 07的也有。
总之，外国人写书还是很好的，除了理论，更多实践。现在国内许多书，作者似乎怕读者学完就比他厉害，或者为了显示自己水平的高超，要不就是关键部分不讲，要不就是故弄玄虚，总之让人看了总是卡在几个地方。

刚才搜索的时候看到此贴：http://www.cnfan.org/bbs/archive/index.php?t-2123.html

文中推荐此站，乃某书作者网页，似乎挺好，且待慢慢看来。
http://www.cnblogs.com/maweifeng/category/14409.html

一本很好的EXCEL VBA的编程书

一本很好的EXCEL VBA的编程书

在学校图书馆借的，几年前的了。之前我一直觉得学习软件或者语言看帮助就够了，但是最近觉得还缺少了一些比较基础的东西，必须进行学习。

看来以后我的观点可以如下：一般对于软件或者语言，经常是有必要的时候，会很快的冲几步，找到自己需要的功能或者语句，迅速完成目标，然后静思，并通过对软件或者语言的特性介绍进行翻阅，思考他们也没有比现有软件多出的创意，能否组合出意料不到结果。假如需要继续提高的话，就必须通读帮助（因为这个是作者公开给大家的部分），假如有好书的话，可以精读，读的时候，不必强求按顺序，可以按喜好随便将书中感兴趣的部分看完。这样子，不会觉得看科技书是一种负担。

废话半天，忘记说这本书的名字了——Excel 2003高级VBA编程宝典
China-pub这里有详细的介绍，照抄几段：

【原 书 名】 Excel 2003 Power Programming with VBA
【原出版社】 John Wiley & Sons
【作　　者】 （美）John Walkenbach [同作者作品] [作译者介绍]
【译　　者】 盖江南[同译者作品] 王勇 等
【丛 书 名】 宝典丛书
【出 版 社】 电子工业出版社

JohncWalkenbach是享有Nr.0Spreadsheet美誉的国际知名作者,是电子表格软件方面的领导权威,是美国Wiley出版公司出版的Excel系列丛书的总策划和总编辑,并且他还是JWalkcandcAssociatesclnc.0公司的负责人,1这是一家总部在美国圣地亚哥的咨询公司,专门致力于电子表格应用程序的开发.

John编写了30多部电子表格软件方面的书籍,有很多书籍在亚马逊网站赢得了5星级的评价,其中的《Excelc2003公式与函数应用宝典》.《中文版Excelc2003宝典》和《Excel应用技巧宝典》已由电子工业出版社引进翻译出版并畅销至今.他还为各大报刊杂志撰写了300多篇文章,其中不乏大量的知名计算机专业杂志.他还负责维护一个网站“ThecSpreadsheetcPage”(网址是www.1j-walk.1com／ss),并且是PowercUtilitycPak的开发者,这是一个MicrosoftcExcel加载宏,该加载宏受到广大使用者的一致好评.John毕业于密苏里大学,并从蒙大拿大学获得了一个硕士学位和一个博士学位.

除了计算机和电子表格软件的专长之外,John还是一位十分热爱生活的人士,他对吉他.音乐.小说.数码摄影以及侍弄花草都饶有兴趣.

看了此书，许多未解问题都得到解答，更难得的是，在配套光盘里除了有所有例题代码之外，还有一本英文PDF全书！84M！，不知道是我孤陋寡闻还是外国书会有这样的无私，不容易啊。推荐作为睡觉前读物：）

emule上也能搜到好几个版本的此书，好像excel 07的也有。
总之，外国人写书还是很好的，除了理论，更多实践。现在国内许多书，作者似乎怕读者学完就比他厉害，或者为了显示自己水平的高超，要不就是关键部分不讲，要不就是故弄玄虚，总之让人看了总是卡在几个地方。

刚才搜索的时候看到此贴：http://www.cnfan.org/bbs/archive/index.php?t-2123.html

文中推荐此站，乃某书作者网页，似乎挺好，且待慢慢看来。
http://www.cnblogs.com/maweifeng/category/14409.html

一段隔列将选择区域字体加粗和一段将选择区域的空格填0的excel宏代码

'隔列加粗
Sub BoldColumns()
   Dim col
   For Each col In Selection.Columns
       If col.Column Mod 2 = 0 Then col.Font.Bold = True
   Next
End Sub

'空格填0
Sub zeros()
   Dim cel
   For Each cel In Selection.Cells
   If cel.Value = "" Then
       cel.Value = "0"
       cel.Interior.ColorIndex = 1
       cel.Interior.Pattern = xlSolid
       cel.Font.ColorIndex = 2
   End If
   Next
End Sub

excel多个文件合并的宏程序

用东华DH 3815N进行数据测试的时候，会导出许多的excel文件来，下面是一个将所有文件合并在一起的简单宏程序， 注意，限制条件：1）文件名依次按照1～114命名；2）合并的时候只选择了所有文件的第二行进行合并，如不同于这个限制条件，请自己修改。

Sub 宏1()
‘
‘ 宏1 宏表
‘ Fantasy记录的宏2006-6-12
‘
‘ChDir “E:\1″
‘Workbooks.Open FileName:=”E:\1\1.xls”

For i = 2 To 114
abc = “e:\1\”
def = “.xls”
file1 = Format(i)
FileName = abc + file1 + def

Workbooks.Open FileName:=FileName
Rows(“2:2″).Select
Selection.Copy
Windows(“1.xls”).Activate

row1 = Format(i +1)
rowname = row1 + “:” + row1

Rows(rowname).Select
ActiveSheet.Paste
Next i

excel多个文件合并的宏程序

用东华DH 3815N进行数据测试的时候，会导出许多的excel文件来，下面是一个将所有文件合并在一起的简单宏程序， 注意，限制条件：1）文件名依次按照1～114命名；2）合并的时候只选择了所有文件的第二行进行合并，如不同于这个限制条件，请自己修改。

Sub 宏1()
‘
‘ 宏1 宏表
‘ Fantasy记录的宏2006-6-12
‘
‘ChDir “E:\1″
‘Workbooks.Open FileName:=”E:\1\1.xls”

For i = 2 To 114
abc = “e:\1\”
def = “.xls”
file1 = Format(i)
FileName = abc + file1 + def

Workbooks.Open FileName:=FileName
Rows(“2:2″).Select
Selection.Copy
Windows(“1.xls”).Activate

row1 = Format(i +1)
rowname = row1 + “:” + row1

Rows(rowname).Select
ActiveSheet.Paste
Next i