首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA实用小程序65: 实现多重替换

学习Excel技术,关注微信公众号: excelperfect 这是在dailydoseofexcel.com中学到的技术,使用一个自定义函数来实现冗长的多重替换。...,想要将单元格A2中的字符串: qaINCf/a,AND'&uv-LLCg.h/DBAuiLTD 中的“AND”、“INC”、“LLC”、“LTD”、“DBA”、空格、句点、逗号、连接符、斜杠、单引号替换掉...一般会想到使用SUBSTITUTE函数,很自然的编写公式为: =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE...DBA",""),"",""),".",""),",",""),"&",""),"-",""),"/",""),"'","") 得到结果: QAFAUVGHUI 虽然获得了结果,但公式非常冗长,如果要替换的字符越多...此时,可以使用VBA编写一个自定义函数来解决。

60910
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    VBA应用技巧:使用VBA快速隐藏工作表行

    标签:VBA 使用Excel VBA隐藏行的简单方法是使用联合区域。通常,如果要使用VBA快速隐藏行,可以选择自动筛选工具,使用一行代码可快速隐藏数千行。...然而,如果需要在同一区域内为其他目的使用自动筛选,那就必须单独处理每个单元格。如果了解VBA,当程序必须在多个单元格上循环时,它可能会较慢,尤其是在每次迭代后需要执行操作时。...下面,我们将使用Union方法,联合要操作的行,这将只需要一行代码就能隐藏行,大大减少了代码的运行时间。...然后,我们使用联合区域隐藏所有含有“Hide”的行。...lr代表工作表中最后使用的行的行号。最后,Rng变量是第一个使用的行到最后一个使用的行之间的区域。

    4.2K31

    VBA专题07:使用VBA读写Windows注册表

    Windows注册表用于存储与计算机相关的各种设置,VBA中的GetSetting函数和SaveSetting函数能够读写Windows注册表,这样,我们不仅能够获取应用程序和硬件的信息,也可以将应用程序中的信息存储在注册表中以供使用...说明: 1.该函数将值写入注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键。...因此,在使用从注册表返回的数值型值之前,应该使用合适的转换函数将返回值转换为数值数据类型。 3.GetSetting不能检索注册表项的缺省值。...说明: 1.该函数从注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键中检索值。...说明: 1.该函数从注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键中删除值。

    3.6K10

    使用VBA合并工作表

    标签:VBA 从多个Excel工作表(子工作表)中获取信息,并用子工作表中的所有数据填充汇总工作表(父工作表),这是很多朋友会提到的常见要求。...将新工作表信息添加到汇总工作表的一种非常快速的方法是遍历工作簿中的所有工作表,使用VBA合并数据。...下面VBA程序将执行此操作: Sub Combine1() Dim ws As Worksheet Dim sh As Worksheet Application.ScreenUpdating...如果Summary工作表中有以前的信息,或者希望保留汇总工作表中原来的信息,则可以使用下面的程序: Sub Combine2() Dim ws As Worksheet Dim sh As..."A" & Rows.Count).End(xlUp)(2) End If Next ws End Sub 如果要在汇总数据时排除多个工作表,可以将And语句与If语句结合使用

    1.9K30

    使用VBA实现数字雨效果

    标签:VBA,条件格式 在Excel中,借助于Excel公式、条件格式和一点点VBA代码,也能实现高科技题材电影中的数字雨效果。如下图1所示。 图1 下面详细讲解如何实现这样的效果。...在工作表第一行单元格区域A1:AP1中,输入0至9之间的随机数,可以使用RANDBETWEEN函数来创建随机数,然后调整列宽以方便查看,如下图2所示。...在“新建格式规则”对话框中,选择规则类型“使用公式确定要设置格式的单元格”,在“为符合此公式的值设置格式”中输入公式: =MOD($AR$1,15)=MOD(ROW()+A$1,15) 单击“格式”按钮...在“条件格式规则管理器”中,单击“新建规则”,按上述步骤,选择规则类型“使用公式确定要设置格式的单元格”,在“为符合此公式的值设置格式”中输入公式: =MOD($AR$1,15)=MOD(ROW()+A...在“条件格式规则管理器”中,单击“新建规则”,按上述步骤,选择规则类型“使用公式确定要设置格式的单元格”,在“为符合此公式的值设置格式”中输入公式: =OR(MOD($AR$1,15)=MOD(ROW(

    1.4K30
    领券