vba批量替换excel内容(vba批量替换字符串中的字符)

No.1

Excel中查找和替换是一个基本功能,Range对象有一个很好的方法可以解决这个问题。

想要得到这个结果,用到一个方法.Replace

语法:

Range.Replace(What、Replacement、 LookAt、 SearchOrder、 MatchCase、 MatchByte、 SearchFormat、 ReplaceFormat)

看上去十分复杂,其实我们用到的并不是十分多。

具体内容可参考如下图片,详细介绍。

No.2

下面用一个例子来简单说明一下。

本着解决问题的目的,利用一个查找姓名并更改的功能,做了如下表格。

可以看到上图,有一个按钮控件,一个文本框控件,下面是个人信息表 。

单击按钮执行查找姓名,并更改为文本框内容。这处把所有的姓名全改为文本框内容了,为了更好地表达编程意图,这么做也了,当然,在实际应用中只能改一个。

实际上这个功能是查找B3单元格内容,然后把和B3姓名相同的全更改为文本框内容。

按钮代码:

Private Sub ChangeName()
Dim s As Worksheet
Set s = ThisWorkbook.ActiveSheet
Dim r As Range, ro As Long, Rchr As String, xStr As String
xStr = vba.Trim(Me.TextBox1.Value)'文本框内容
Set r = s.Range("B3:B10")'定义查找区域
Rchr = r.Item(1)'定义要查找的姓名
With r
    .Replace Rchr, xStr'替换姓名为文本框内容
    With .SpecialCells(12).EntireRow'返回
        .Interior.Color = RGB(21, 211, 112)
        .Borders.Item(xlEdgeBottom).LineStyle = 1
    End With
    With .SpecialCells(12).EntireColumn
        .Interior.Color = RGB(211, 122, 111)
    End With
End With
End Sub

No.3

可以看到程序里还用到一个.Spacialcells方法。

此方法是返回某一类型的Range对象。

在查找过程中返回所有类型的Range,也就是返回R对象的所有单元格,然后再进行一个属性设置。

Spacialcells方法语法:

Range.specialcells(Type, Value)

下图为type枚举类型:

比如要返回空单元格的对象,可以用下面代码:

dim R as Range

set R=Thisworkbook.Activesheet.Range("A1:D10").Specialcells(4)

上面两行代码就功能就是返回当前表A1:D10里空单元格。

找出空单元格之后,就可以做你想做的事情了。

该添加值添加值,该删除就删除。

如对你有帮助欢迎关注、收藏

(0)

相关推荐

  • Excel查找字符串中指定字符的位置

    有时我们需要在一长字符串中查找某特定字符某次出现的位置,下面我给大家介绍如何用公式来实现. 操作方法 01 在介绍此方法之前,我们先通过两个简单的例子熟悉两个常用的字符串应用公式. 用Hello wo ...

  • sed批量替换文件内容(sed替换某一行的特定内容)

    概述sed命令是一个面向字符流的非交互式编辑器,也就是说sed不允许用户与它进行交互操作.sed是按行来处理文本内容的.在shell中,使用sed来批量修改文本内容是非常方便的.sed命令的选项语法: ...

  • excel从有分隔符的字符串中提取关键词

    需要针对部门进行相关数据分析,但是现有的数据没有规范的可直接使用部门字段,字段" 管理渠道"中含有部门信息."管理渠道"这个字段中字符串用".&quo ...

  • vba批量替换字符串中的字符(vba替换指定内容)

    [分享成果,随喜正能量]无须要求别人对我们好,也不要太在乎他人的语言态度.只要自己心里感觉是正面积极的,感谢大众的,真心欢喜的就好..我给VBA的定义:VBA是个人小型自动化处理的有效工具.利用好了, ...

  • 怎么在电脑excel软件内批量填充或替换内容

    当我们在使用电脑的时候,可以通过excel软件来处理输入文档,那么在excel内应如何批量填充内容呢?接下来就由小编来告诉大家.具体如下:1. 第一步,打开电脑中的一个excel文档,如下图,在文档中 ...

  • WPS如何批量替换Excel单元格内容

    WPS是现在十分常用的一款办公软件,有些新用户不知道如何批量替换Excel单元格内容,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的Excel文档.2. ...

  • Excel如何对指定内容进行批量替换操作

    当需要修改excel中的一项信息,而这项信息出现的次数又较多时,显然逐个修改很是麻烦,excel提供了批量替换功能,非常方便大家操作,下面来给大家详细介绍一下. 操作方法 01 单击开始>所有程 ...

  • 如何批量替换Excel单元格的公式

    在Excel的单元格里面,我们可以使用公式。 如果您想批量替换Excel单元格的公式,通过普通的查找替换功能是无法实现的。您得使用下面的.绝招。 先看下表,比如,C列的公式为: C1=A1+B1 C2 ...

  • excel怎么利用vba实现批量套打快递单批量打印单据?

    excel vba 批量套打快递单,批量打印单据,可以自定义修改设置新的格式. 快递套打模板2015:点击下载 1.设置快递单的自定义纸张.选择对应打印机-点击打印服务器属性-勾选创建新表单-输入表单 ...