注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel宏运行于所有sheet工作表(示例-字母大小写转换)  

2010-03-17 13:36:32|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文链接:http://oicu.cc.blog.163.com/blog/static/123039471201021713632919/

Excel不像Word有字母大小写转换的功能,那要怎样进行转换呢?
用Upper、Lower、Proper函数?显然那不是所要的功能。
其实很简单,替换即可,但是26次替换操作太麻烦,录制宏要方便一些,
而且以后还可以再次使用。


Sub Uppercase() ' 小写替换成大写
    Dim i As Integer
    For i = 97 To 122
        Cells.Replace What:=Chr(i), Replacement:=Chr(i - 32), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
        SearchFormat:=False, ReplaceFormat:=False
    Next i
End Sub

Sub Lowercase() ' 大写替换成小写
    Dim i As Integer
    For i = 65 To 90
        Cells.Replace What:=Chr(i), Replacement:=Chr(i + 32), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
        SearchFormat:=False, ReplaceFormat:=False
    Next i
End Sub



上面2个大小写字母替换宏的运行范围是由这里的设置决定:
打开“查找和替换”窗口-选项-范围,
范围选择“工作簿”时则在所有sheet运行。


要让宏运行于所有sheet工作表,也可以用Sheets.Count循环,
同时打开多个文档则加上Workbooks.Count循环。

For k = 1 To Workbooks.Count
  For j = 1 To Workbooks(k).Sheets.Count
    With Workbooks(k).Sheets(j)
    ……

  评论这张
 
阅读(1688)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018