首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

对EXCEL表的格式进行批量处理!解决方案

2012-02-02 
对EXCEL表的格式进行批量处理!如题,要对excel经行如下的格式化处理1、原始的A列中单元格数据,有的左上角带

对EXCEL表的格式进行批量处理!
如题,要对excel经行如下的格式化处理 

1、原始的A列中单元格数据,有的左上角带绿角,有的不带,将他们全部格式化为带绿角的; 
2、将原始B列中所有数据前面加上“abc,”(有逗号),后面加上“end。”(有句号); 
3、所有数据格式化以后,在最后加一个名为xh的列,此列从表第一行数据开始“0001”,“0002”一直顺序往下面排; 


以上步骤,我单独都可以实现,问题是每天都要有很多这样的excel表需要进行如上的整理,很烦,如何弄个批处理文件,一下同时将上面三步自动作了 


另:程序我不是很懂VBA,所以高手们尽量步骤详细一点可以吗?^_^

[解决办法]
1、把A列的单元格格式设为“文本”
2、先把B列中的数据记录在一个字符串变量mystr中,再把“abc,”& mystr & “end。”
3、先设置xh列的格式为“文本”代码如下:
Columns("B:B").Select
Selection.NumberFormatLocal = "@"
Range("B1").Select
ActiveCell.FormulaR1C1 = "0001"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19"), Type:=xlFillDefault
Range("B1:B19").Select
1、2的代码等我有时间给你写,3的代码可能也不是很全面,你再把需求说得更详细点,最好有排版前后的截图

热点排行