使用Excel的VBA简单语句处理循环、判断等操作
什么是VBA
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。
怎么使用Excel的VBA来处理处理重复性问题
Excel本身就自带非常强大的一系列函数,可以处理各种各样的问题.
但是在某些情况下,VBA却更符合处理问题的思想,编写也并不困难
使用VBA
在打开Excel后,使用Alt+F11打开面板
原始数据
这是模拟爬取公司信息其中某一列的节选部分.
可以看到,第一行数据本身显示的应该是"融资上市情况",但是混入了"公司人数"的数据信息
接下来使用VBA语句来过滤掉其中的数据
循环语句
首先打开面板,选中worksheet
右边可以看情况使用,一般使用默认 SelectionChange自动 即可
编写循环语句,将第一列的数据全部复制到第三列(是赋值,并不是使用公式)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
/定义一个整型变量/
Dim i As Integer/整型变量需要小于32767,如果数字过大,使用Long类型;示例中只有16行,所以定义从1到20行,多余为空没有问题/
For i = 1 To 20/sheet1表的 i 行的第三列的值=sheet1表的 i 行的第一列的值(右边赋给左边)/
Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)/进行下一个循环/
Next
End Sub
Dim i As IntegerFor i = 1 To 20Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)
Next
自动加载,当鼠标点击表任意位置时,就会开始执行语句
判断语句
判断是否3>0,输出一句话
If 3 > 0 ThenMsgBox "3大于0呀"
End If
循环+判断 结合使用
将第一列值为融资情况的列赋值到第三列
Dim i As Integer
For i = 1 To 20/*如果 i 行第一列的值不包含数字 0 ;或者说如果 i 行第一列的值包含数字 0 的数目为0个*/If InStr(Sheet1.Cells(i, 1), "0") = 0 Then/*i行第3列的的值为第一列判断为true的值*/Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)End If
Next
还有各种各样的语句结合使用,可以实现更多的功能
使用Excel的VBA简单语句处理循环、判断等操作相关推荐
- 【知识小集】☞Excel之VBA编程语句集300句
Excel VBA常用300句 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程 ...
- vba 不等于_EXCEL中VBA基础语句(1)
萌二笔记分类目录及书单 一.If-Then语句 说明:条件判断,如果......那么......例1:A2单元格的成绩大于等于60,则弹出对话框提示"及格". Sub 判断成绩() ...
- 【C语言】分支语句和循环语句还能这么用？一篇带你重新认识它（两万字超细详解）
文章目录 前言 分支语句(选择结构) 一. if 语句 1. if 语法结构代码演示 2. 当一个 if 或者 else 或 else if 后面跟多个语句要加大阔号 { } 3. else的匹配:e ...
- Excel VBA简单语法
摘要: 该文为想要学习VBA编程的会计和编程同学有使用VBA实现Excel自动化处理和一定的个性化定制Excel操作提供参考 第一篇为::VBA简单语法 第二篇为: Excel 编写第一个简单的VBA ...
- tp5循环查询语句_如何用Excel快速生成SQL语句，用过的人都说好
Excel的公式自动生成想必大家都知道了,就是写好一个公式后直接往下拖,就可以将后面数据的公式自动生成. 今天我们就用这个功能来快速生成SQL语句. 导入Excel数据 Excel的数据有多种方式,这 ...
- Excel VBA简单需求实践,包含对Excel基本的读取,校验,复写操作
该文为想要学习VBA编程的会计和编程同学有使用VBA实现Excel自动化处理和一定的个性化定制Excel操作提供参考 第一篇为::VBA简单语法 第二篇为: Excel 编写第一个简单的VBA程序 第 ...
- EXCEL VBA常用语句100句
以下转自:http://www.bbioo.com/blog/bio/guohui/1524.htm EXCEL VBA常用语句100句 定制模块行为 Option Explicit '强制对模块内所 ...
- VBA基础语法：循环语句
目录 使用 Do...Loop 语句 直到条件为 True 时重复语句 直到条件变成 True 才重复语句 从循环内退出 Do...Loop 语句 使用 For...Next 语句 使用 For Ea ...
- 双骰子游戏——简单语句实现，do while循环
双骰子游戏--简单语句实现,do while循环 前言 双骰子游戏: 两个骰子分别抛掷,如果和为2,3或12,玩家就输了: 如果和为7或者11,玩家胜利: 如果抛掷的点数为其他点数,则第二次抛掷的点数 ...
最新文章
- 对Oracle中索引叶块分裂而引起延迟情况的测试和分析
- 语义分割源代码_综述 | 基于深度学习的实时语义分割方法：全面调研
- 刚安装了Fedora 33，尝尝鲜~，哈哈~~~
- Web框架之Django_08 重要组件（form组件、cookie和session组件）
- php 判断是否文件,利用PHP判断文件是否为图片的方法总结
- 二、Merge sort
- 你需要知道的基础算法知识——STL和基础数据结构（四）
- Corn Fields——POJ3254状态压缩Dp
- LINUX下的FTP服务器
- 检查字段是否包含字符串
- 2019牛客暑期多校训练营（第五场）G subsequence 1（dp+组合数）
- python图书库存管理系统的需求分析_图书库存管理系统方案.doc
- 2019年“深圳杯”数学建模挑战赛B题（1、2问）
- cpu烤机温度测试软件,ATX2.0与ATX3.0机箱烤机温度对比测试，竖装显卡真的会把风挡死...
- 第十届蓝桥杯省赛Scratch编程真题解析
- 【直击DTCC】宝存CEO阳学仕:如何保障SSD的IO确定性?
- 自然语言处理(NLP)之路——概念理解——从 Google translate 的 seq2seq 看自然语言处理(NLP)的发展
- 选项模式(option)
- 英飞凌TC387在EB环境下的MCAL工程建立
- MySQL架构与业务总结图