百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 文章教程 > 正文

学习VBA,报表做到飞 第一章 入门篇 1.20 Replace语句

yund56 2025-03-18 23:46 30 浏览

第一章 入门篇

1.20 Replace语句

Replace语句的功能相当于Excel菜单里的“替换”。该语句的语法是这样的:

Range("要替换的区域").Replace(What、Replacement、LookAt、SearchOrder、MatchCase、MatchByte、SearchFormat、ReplaceFormat)

让我们来了解一下Replace的参数:

Replace语句有两个必选参数What、Replacement,其它参数都是可选。

What 查找内容

Replacement 替换内容

LookAt:

xlWhole 整个单元格匹配

xlPart 不要求整个单元格匹配

SearchOrder:

xlByRows 按行搜索

xlByColumns 按列搜索

MatchCase 如果为True,则搜索区分大小写

MatchByte 如果为True,则区分全/半角

SearchFormat 查找格式

ReplaceFormat 替换格式

例句:

00007933

空调

VBA

498720.00

14961.60

00007934

台式电脑

vba

35670.00

1070.10

00012189

音响设备

EXCEL

12420.00

372.60

00014439

空调

EXCEL

6800.00

204.00

00014439

音响设备

语句

6800.00

204.00

00014439

音响设备

循环语句

6800.00

204.00

Sub replace()

Range("a1:e6").replace what:=6800, replacement:=8000

'把表中数值为6800的单元格替换为8000


Range("a1:e6").replace what:="vba",replacement:="学习vba",MatchCase:=True

'把表中的"vba"替换为"学习vba",如果不加MatchCase参数,默认不区分大小写,则"c1"、"c2"单元格的内容都会被替换。加上MatchCase:=True,则只替换"c2"单元格。


Range("a1:e6").replace what:="EXCEL",replacement:="EXCEL报表",matchbyte:=False

'把表中的"EXCEL"替换为"EXCEL报表",其中"c3"单元格为全角。如果不加matchbyte参数,默认区分全/半角,则只替换"c4"单元格。加上matchbyte:=False,不区分全/半角,"c3"、"c4"单元格都会被替换。


Range("a1:e6").replace what:="语句",replacement:="代码",lookat: = xlWhole

'把表中的"语句"替换为"代码"。如果不加lookat参数,默认为不要求整个单元格匹配,则"c5"单元格被替换为"代码","c6"单元格内容会变为"循环代码"。加上lookat: = xlWhole,要求整个单元格匹配,则"c6"单元格内容不会被替换。

End Sub


对于SearchFormat 查找格式和ReplaceFormat 替换格式这两个参数的应用,就相对比较麻烦一些。我们需要先设置好查找格式和替换格式,然后在replace语句里把SearchFormat 查找格式和ReplaceFormat 替换格式都设置为True,就可以进行替换了。

把下表中填充颜色为红色的单元格,替换为填充蓝色,内容不变:

00007933

空调

VBA

498720.00

14961.60

00007934

台式电脑

vba

35670.00

1070.10

00012189

音响设备

EXCEL

12420.00

372.60

00014439

空调

EXCEL

6800.00

204.00

00014439

音响设备

语句

6800.00

204.00

00014439

音响设备

循环语句

6800.00

204.00

Sub replace()


Application.FindFormat.Interior.ColorIndex = 3 '查找格式设置为红色


Application.ReplaceFormat.Interior.ColorIndex = 5 '替换格式设置为蓝色

Range("a1:e6").replace what:="", replacement:="", searchformat:=True, ReplaceFormat:=True

'把填充颜色为红色的单元格替换为蓝色,因为内容不用变化,所以what和replacement参数都为空。

End Sub

替换之后就是这个效果:

00007933

空调

VBA

498720.00

14961.60

00007934

台式电脑

vba

35670.00

1070.10

00012189

音响设备

EXCEL

12420.00

372.60

00014439

空调

EXCEL

6800.00

204.00

00014439

音响设备

语句

6800.00

204.00

00014439

音响设备

循环语句

6800.00

204.00


往期精彩回顾:

学习VBA,报表做到飞 第一章 入门篇 1.19 FindNext语句

学习VBA,报表做到飞 第一章 入门篇 1.18 Find语句

学习VBA,报表做到飞 第一章 入门篇 1.17 AutoFilter语句


我是云飞扬,职场财会人员,愿与大家分享表格制作和数据统计分析的技巧与方法,希望大家的工作更便捷,更轻松!

相关推荐

如何在Office 中编辑 PDF?附详细化步骤

PDF很受欢迎,因为它能在不同的设备和操作系统上仍然保持原有格式。但是,这也意味着直接更改PDF文件比其他格式更难更复杂。值得庆幸的是,Microsoftoffice和UPDF帮你解决这一难题。一...

我的 Windows 装机必备软件清单

今天给大家分享下我的装机必备软件,都是用了好多年的软件神器。靠谱、好用、无广告,Windows电脑必备软件,收藏这一篇就够了!01.浏览器王者:Chromehttps://www.google.c...

Docnet Core 是一个轻量级、高性能的 .NET PDF 操作库

DocnetCore介绍DocnetCore是一个轻量级、高性能的.NETPDF操作库,依托于PDFium渲染引擎,提供强大的PDF文档解析、渲染、操作等功能。它完全支持.NET...

分享三款好用的PDF编辑软件,轻松处理PDF

作为一名需要经常和PDF文件打交道的工作者,我来分享一下几款好用的PDF编辑软件,并详细分析了它们的优缺点,希望能帮你找到合适的工具。1.AdobeAcrobatDC作为PDF格式的发明者,Ado...

PDF文档创建工具软件:novaPDF OEM 11.9 Build 432 for Windows

novaPDFOEM是一款实用高效的软件,从头开始设计,让您尽可能轻松地在应用程序中添加PDF打印功能。换句话说,这个实用程序是专门为应用程序开发人员设计的,可以直接在程序安装程序中集成为PDF打印...

线性表顺序存储结构求集合的并,交,补,差(源代码附上 超详细)

一:算法分析1)用数组A,B,C,E表示集合。假定A={1,3,4,5,6,7,9,10},  B={2,,3,4,7,8,10},E={1,2,3,4,5,6,7,8,9,10},  输入数组A...

分享一套SpringBoot开发博客系统源码,包含完整开发文档和视频

基本信息项目名称:eblog摘要:eblog是一个基于Springboot2.1.2开发的博客学习项目,为了让项目融合更多的知识点,达到学习目的,编写了详细的从0到1开发文档。主要学习包括:自定义Fr...

通达信指标合集〔源码齐全〕

很多朋友问到我哪款指标好用,这里我说一下,之所以有很多不同的指标是因为我们在针对不同的盘面情况的时候使用的指标是不同的,我给到的指标一般来讲就目前的环境来讲都是比较适合的,今天我就把我平时自己常用的指...

巅峰对决!Spring Boot VS .NET 6

SpringBoot和ASP.NETCore都是企业中流行的Web框架,对于喜欢C#的人会使用ASP.NETCore,而对于Java或Kotlin等基于JVM的语...

在asp.net core 中控制访问权限的方法

Intro#由于项目需要,需要在基于asp.netmvc的Web项目框架中做权限的控制,于是才有了这个权限控制组件,最初只是支持netframework,后来dotnetcore2.0...

ASP.NET是否无生存之地?

ASP.NET,这个已经很久的技术,总觉得已经被时代淘汰,我们公司是一个10人小公司,几个十年十五年的项目还是用ASP.NET开发的。这两年由于客户的需求变化,我们公司也顺势开始对这些项目重新开发,改...

Spring Boot + Vue.js 实现前后端分离(附源码)

作者:梁小生0101链接:juejin.im/post/5c622fb5e51d457f9f2c2381SpringBoot+Vue.js前后端涉及基本概念介绍,搭建记录,本文会列举出用到环...

ASP.NET Core 中的 Mapster 使用入门教程

在本文中,我们将学习如何在ASP.NETCore应用程序中使用Mapster。首先,我们将了解Mapster是什么以及如何将其安装到.NETCore应用程序中。然后,我们将在使用...

Asp.net常用方法及request和response-a

asp.net教程asp.net常用方法:1、Request.UrlReferrer请求的来源,可以根据这个判断从百度搜的哪个关键词、防下载盗链、防图片盗链,可以伪造(比如迅雷)。(使用全局一般处理...

ASP.NET Core使用功能开关控制路由访问

前言在前面的文章,我们介绍了使用Middleware有条件地允许访问路由(《ASP.NETCore使用Middleware有条件地允许访问路由》)。而对于一些试验性的功能,我们并不希望用密码去控制是...