【VBA(一)：For循环】【Excel中宏的使用+手工书写VBA代码+使用For循环+小结及练习】

最新推荐文章于 2025-03-18 18:42:00 发布
置顶 最新推荐文章于 2025-03-18 18:42:00 发布
阅读量7.9k 收藏 21
点赞数 3
分类专栏： VBA 文章标签： excel vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_42893334/article/details/105407922
版权
本文介绍了如何在Excel中使用宏和手工编写VBA代码，特别是通过For循环实现批量操作。首先讲解了录制宏的优缺点，然后展示了如何录制相对引用的宏并实践案例。接着，深入探讨了手工编写VBA代码，包括新建模块和使用For循环进行10次颜色变更的操作。最后，总结了宏和VBA的基本概念，并提供了制作工资条的实例，演示了设置按钮和宏设置的过程。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

文章目录

Excel中宏的使用

ALT+F8

在这里插入图片描述

录制宏

原数据（有六张表）
在这里插入图片描述
先创建一个宏，取名为宏1
在这里插入图片描述
创建好宏，开始录制宏，在一月份的表进行操作，每一次对单元格的操作都会被录制，所以要谨慎。
在这里插入图片描述
在一月表中进行删除CDE列，将金额列放在日期列后面，筛选数量大于200的数据。

效果图（一月）
在这里插入图片描述
操作完成后，点击停止录制。

切换到二月表，点击宏，执行宏1。

最低0.47元/天 解锁文章
【Excel VBA】在 Excel VBA 中使用 For 循环全面指南
田豆芽的IT技术专栏
05-06 1万+
在Excel VBA开发环境中处理数据和自动化任务时，For循环是不可或缺的工具。田辛老师在这篇博客中将详细讲解如何在Excel VBA中使用For循环，并通过几个实际的案例来展示其应用。
VBA--For循环
认知 行动 坚持
02-24 5112
宏：一组动作的集合。 录制宏：把重复的动作用宏自动实现。 例子：对每个相同的表删除CDE列、将金额放在日期后面、筛选数量大于200的数据 点了录制宏按钮之后，就一步步正确操作，不可逆，所录制的每个动作都会被记录重复，录制完后，就点“停止录制”按钮。 ...
Excel VBA四种循环的用法和区别(For...next,For each ...next,Do...loop,While...wend)
热门推荐
m0_62872215的博客
11-15 1万+
在Excel VBA中需要用循环去遍历某些参数时，就会考虑到VBA中常见的四种循环方法:For...next, For each ...next, Do...loop，While...wend。一般情况下，四种方法是等效的，可以互相替换使用，但是在使用的便利性上，上述方法各有优势。
for循环还有这些妙用
最新发布
李肖遥的专栏
03-18 59
foreach目前的用法看起来“岁月静好”，似乎没有什么问题，可惜的是，一旦进行实际的代码编写，我们会发现，假如我们要在 foreach 结构中再用一个foreach，或是在foreach中使用 with 块，就会出现 “_” 被覆盖的问题——也就是在里层的 foreach或是 with 无法通过 “_” 来访问外层"_" 所代表的对象。唯一的问题是，这样的写法，在调试时完全没法在用户代码处添加断点（编译器会认为宏内所有的内容都写在了同一行），这是大多数人不喜欢使用宏来封装代码结构的最大原因。
【EXCEL_VBA_基础知识】01 第一次编写代码-For循环
分享个人收获，创建共享共赢社区
05-01 775
最近，因制作资料需要，经常需要使用EXCEL的宏功能。借此机会，通过学习来巩固相关基础知识！后续，将会连载相关学习笔记，与大家共同学习，共同成长！
VBA_for_EXCEL2003
12-21
VBA_for_EXCEL2003，从别的地方找到的资源，对表格操作比较多的人可以参考
【VBA(二)：IF函数】【Range单元格对象+IF函数过程控制+用IF退出For循环+小结及练习】
LinGavinQ
04-10 2629
本章主要内容：Range单元格对象，IF函数过程控制，用IF退出For循环，小结及练习。
VBA之for循环使用
amamiyayouko的博客
03-25 8079
有这样的工作表 现在想把E列里,男对应的F称呼列改为先生,女改为女士 B列的理工对应的C列改为LG,文科改为WK,财经改为CJ,如何去实现? 这里就用到了for循环和if Sub for_if_test() For i = 26 To 2 Step -1 ’ 处理性别 If Range(“e” & i ) = "男) Then Range(“f” & i) = “先生” Else...
VBA语言的循环实现
2501_90494497的博客
02-11 872
For...Next循环：用于指定次数的循环。Do...Loop循环：可以根据条件来控制循环的结束，适用于知道循环次数不确定的情况。For Each...Next循环：用于遍历集合中的每一个元素，常用于数组和集合对象的遍历。在VBA编程中，循环结构是处理重复任务时不可或缺的一部分。通过灵活使用不同的循环结构，如For...NextDo...Loop和，结合实际需要，可以有效地提高工作效率。无论是执行计算、处理用户输入还是遍历集合，VBA提供的循环结构都能够满足你的需求。
VBA for Excel（一）
qq_42674105的博客
02-26 701
VBA for Excel（一） 说明：本人非科班，主要是工作中接触过VBA，用过一些，朋友想学，就打算以最简的方式写一系列教程，也做个备忘吧。希望路人能从中受益，也希望能有前辈路过指点。 文章目录VBA for Excel（一）1.0 序言1.1 从录制宏开始1.2 VBE**编辑器**1.3 对象、属性、方法1.4 获取帮助 1.0 序言 首先，明确一下VBA的适用范围。VBA适用面其实比较窄...
VBA For WPS 2019
09-07
这个描述太多了，我就随便写一点吧，毕竟看名称就知道是什么东西了。
VBA For WPS2019安装包
03-13
VBA For WPS2019安装包是一款专为WPS2019所推出的辅助插件。WPS2019 VBA插件支持Win7/Win/10，解决新版本WPS2019宏无法开启的问题，需要的小伙伴不要错过了。 【使用说明】 1、下载本站提供的WPS2019宏插件 2、运行安装WPS2019宏插件，安装完成后关闭。 3、打开WPS2019，新建表格，点击开发者工具，此时的宏不再是灰色。 4、点击宏即可进行使用和编辑。
VBA 7.1 FOR WPS 2019
10-30
适用于安装 WPS 2019 版本的 缺少 VBA 模块的 亲测可用，内含 VBA 7.1 安装顺序1、2、3、4按照顺序安装；
vba_for_wps_2052
04-18
wps官方最新VBA插件2019.4.18更新 WPS Office 2019 铜梁区党政机关专业版（11.8.2.8053）
VBA for Excel（四）
qq_42674105的博客
03-05 449
VBA for Excel（四） 本文涉及到的问题 用VBA填写公式 多方法的区域选择 单元格对象常用的方法属性 区域的选择 range("a1")表达的是当前工作簿当前表的a1单元格是最常用的形式。注意一切没指定从属对象的对象都使用默认对象，range("a1")其实就是一种简写，它等价于ActiveWorkbook.ActiveSheet.Range ("a1"),当你跨表时一定要指明表...
宏定义 for 循环
Authur_gyc
04-28 3061
通过宏定义 for 循环，简化代码 #define _for(i,a,b) for( int i=(a); i<(b); ++i) #define _rep(i,a,b) for( int i=(a); i<=(b); ++i) 举例 int num[10]; _rep(i,1,5) cin >> num[i] >> endl; _rep(i,1,5) ...
excel vba for 调配车间
HappyDelano的专栏
11-12 785
Sub SetA1() '获取用户输入的序列号打印范围 mNumFrom = ThisWorkbook.Worksheets("Sheet1").Range("B1").Value mNumTo = ThisWorkbook.Worksheets("Sheet1").Range("D1").Value For r = mNumFrom To mNumTo Step
VBA for 循环、while 循环和 do...while 循环
m0_71065065的博客
06-03 6454
VBA 中的循环语句是一种可以让程序多次执行同一段代码的结构。循环语句可以有多种类型，例如 for 循环、while 循环和 do...while 循环。
VBA_for循环
岩
05-12 793
for循环 Sub gzd() Range("A1:L1").Select Dim i As Integer For i = 1 To 10 ActiveCell.Range("A1:L1").Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown Next End Sub Sub gzt...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值