全民一起VBA提高篇 第十六回 多区域合纵连横身形变幻,单元格定位精准边界分明

最新推荐文章于 2023-02-03 17:28:06 发布
最新推荐文章于 2023-02-03 17:28:06 发布
阅读量566 收藏 3
点赞数
CC 4.0 BY-SA版权
分类专栏： 全民一起VBA提高篇笔记 文章标签： 第十六回 多区域合纵连横身形变幻 单元格定位精准边界分明
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/lei_686/article/details/90664378
本文介绍了VBA中多区域的处理方法，包括Range对象的cells属性、Union和Intersect函数的应用，以及currentRegion、Resize和Offset方法。通过实例展示了如何循环读取单元格、联合多个区域、找出特定内容的表格并改变其背景色，以及进行行列平移和数据填充。

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

 

相关知识点

Range.cells(1,1): 代表range对象的cells，是重新定位的左上角单元格第一行第一列（相对位置），worksheet.cells（1,1）是工作表的第一行第一列（绝对位置）

Application.Union: 多个range联合起来，作为一个新的range对象

Application.intersect:多个range重叠的区域，作为一个新的range对象返回

Range.currentRegion：包含这个Range的最大连续区域，该区域与其他任何已使用单元格都不邻接

Range.Resize:该range的左上角单元格为原点，生成一个指定大小的新的range对象并返回，Range.Resize（2,3）新区域的2行3列

Range.Offset:按照Range的大小，根据指定的距离平行移动，得到一个新的同样形状的Range，Range.Offset（3,2）移动3行2列,可以负数或零。

 

例1 相对位置的循环定位和读取

Sub readcells02（）

  &nb

最低0.47元/天 解锁文章

200万优质内容无限畅学
全民一起VBA提高篇第一课：基本数据类型详解一
qq_43568982的博客
01-15 665
变体性能测试 Option Explicit Sub test() Dim startTime startTime = Time() '请将i/j/a三个变量全部设置为变体并运行本程序，记下时间； '然后再将三者都设置为Integer并运行，再记下时间，并与前者比较。 'Dim i, j, a Dim i As Integer, j A...
全民一起VBA提高篇 第二十二回 巧用事件实现自动跳转，慎写代码谨防无限级联
05-31 1068
相关知识点 Change:工作表对象（worksheet）当一个单元格处于编辑状态或者发生变化时会触发包含双击也会触发，可以进行有效性验证；修改格式，合并单元格，排序，增减批注不会触发 避免事件级联：a.使用静态变量加锁（暂不讲）；b.使用Application.EnableEvents属性，True，允许VBA响应Execl事件，False，禁止响应 例1 按照关系图点击关键字，在第...
全民一起VBA提高篇 专题1 第二回 变体终非万全策，数字要分长短型
06-11 524
相关知识点 变体类型还有一个缺点就是总是猜数据，有时数据类型是文本显示的是数字 如第一堂所示 VBA相加时“+”，如果两边都是字符串就等同于“&”，执行连接操作 自动类型转换：Dim a As Integer a=”23”转换为数字23，a=”你好”无法转换，报错 +不可以取代& 相同：“12”&”34”=”1234”， “12”+”34”=”...
全民一起VBA提高篇 第16回
bestyuuzh的博客
03-29 619
第十六回 多区域合纵连横身形变幻,单元格定位精准边界分明 1.简化range的i、j二层循环 PS:上回知识点—利用range.row、range.rows.count确定i、与j的范围，本回进行优化简单处理： 1. 上回方法 Sub read Cel1s（） Dim i As Long，j As Long，r As Range Set r = Range（"C4：F6"） '按照行...
全民一起VBA基础篇第一课：开发环境配置
qq_43568982的博客
01-15 790
学习VBA的一些准备工作 调出开发工具 1.打开EXCEL，点击文件->选项 2.点击自定义功能区->开发工具 3.开发工具->宏安全性->启用所有宏 4.初步了解VBE （1）模块里面放标准代码，在工作表中用按钮激活的 （2）事件编程代码放在对象栏中，用于当事件触发时，自动运行的程序。 （3）类模块代码放内代码 （4）窗体里面放窗体程序代码 如果没有，则在工程模块中...
VBA提高篇_17 区域合纵连横,单元格精准定位
pigerr的博客
02-03 654
把多个Range联合在一起,作为一个新的Range对象返回。
通信行业点评：合纵连横，自我变革，RCS成5G“先发”应用.pdf
07-05
这个行动表明了运营商们在5G技术应用和通信服务创新上的联合姿态，标志着通信行业内部进行“合纵连横”式的合作，共同打造全新的5G消息生态。 MaaP（Messaging as a Platform，消息即平台）是RCS的一个重要组成部分...
计算机行业动态分析：华为全联接大会：绝处逢生，合纵连横.pdf
07-04
4. 华为的开源策略和软件生态构建：华为在操作系统（openEuler）、数据库（openGuass）等基础软件领域全面开源，并借助HMS（华为移动服务）平台合纵连横，打造了一个庞大的终端软件合作生态系统。这反映了华为在软件...
埃森哲：中国旅游产业需要“合纵连横”.pdf
06-06
### 埃森哲报告解析：中国旅游产业的“合纵连横”策略 #### 核心观点概览 埃森哲在其发布的报告《中国旅游产业需要“合纵连横”》中，针对中国旅游产业面临的机遇与挑战，提出了四个主要趋势，并给出了相应的应对...
全民一起VBA实战篇第三课：文本内容的实用技巧
qq_43568982的博客
02-01 570
题目要求： 要求大家编写程序自动在F列中标记出每一个交易记录是该客户的第几次交易。比如第3行的“赵六”是第一次出现，所以F3为 1 ，而第4行的“赵六”是第二次出现，所以F4应为 2 。 方法一： 双重循环 Option Explicit Sub demo() Dim i As Long, j As Long, s As Long Dim r As Object Set...
VBA---查单元格，行/列，区域边界情况，用end(xlup) .row , end(xldown) .row 等
热门推荐
奔跑的犀牛先生
01-21 1万+
好用的几种情况--只能试往下往右尽量大的位置反查回来" 其他不好用情况主要是因为，range() 边界连接起来会影响end() 的判断 end() 会查出 非空区域 / 空区域的边界 Sub test121() '某列 Debug.Print "C列的上下限" '查一列的上限比较少 Debug.Print Range("c1").End(xlEnd).Row '这样不行，...
全民一起VBA提高篇第十三课：简单爬虫
qq_43568982的博客
01-20 2091
目标要求： 爬取中国银行最新的汇率 爬取关键 获取网页字符串并保存到VBA变量中 使用正则表达式等方法处理字符串 首先进入网址 https://www.boc.cn/sourcedb/whpj/ 打开源网页 找到需要的这一部分 需要通过正则表达式除去标签部分 Option Explicit Sub demo() Dim t t = Timer() Dim s...
学习日志 全民一起VBA提高篇 第七回 数据原形轻松识破 四舍五入务必当心
海豚
02-10 455
学习日志 全民一起VBA提高篇 第七回 数据原形轻松识破 四舍五入务必当心 相关知识点 一、判断数据类型 isdate() 判断是否为日期 isnumeric() 判断是否为数字 typename() 判断变量类型 二、转换数据类型 cint() clng() cstr() ccur() cdate() cbool() cdbl() csng()...
全民一起VBA提高篇 第三十二回 Select 简化分枝结构，静态变量坐看沧海桑田
06-06 880
相关知识点 静态变量：模块级的变量都是静态变量，无论是Pubic还是Private，execl关闭静态变量就消失了 例1 运行多少次都是1，每次都要重新分配内存 Sub a() dim x x=x+1 msgbox x End Sub 如果将dim x放在模块前面，每点击一次就会累加 Option Explicit di...
全民一起玩Python提高篇第一课：配置Pycharm
qq_43568982的博客
03-23 745
安装好之后，双击快捷方式进入pycharm
全民一起VBA提高篇第六课：事件编程
qq_43568982的博客
01-15 680
事件编程 事件编程要写在事件的发生地，放在事件编码中 Private Sub Workbook_Open() '对应子过程名写好 Dim i As Integer Randomize i = Rnd() '如果随机数i在0到0.5之间，则随机生成一个1到3之间的中奖号码 If i < 0.5 Then Range("c7").Value = Int(Rnd() * 3)...
全民一起VBA提高篇 第二十三回 窗体对象初体验，人机交互更直观
05-31 781
相关知识点 插入窗体，修改属性更改大小，颜色等 Caption：标题栏文字 BackColor:背景颜色 添加控件， CommandButton:按钮 Show:窗体显示 ……
【原创】VBA学习笔记（26）VBA里的各种默认初值
奔跑的犀牛先生
05-16 2870
1 基础概念：默认值只是缺省时的 备选值而已 初值 <> 默认值 默认初值，只是不赋值时的默认值而已 2 VBA里变量可以不赋值，直接可以先进入表达式运算，是因为有默认值 2.1 变量 一般变量默认值为"" 2.2 数组 数组坐标 一般数组默认需要从0开始，注意不要 造成下标越界等 比如arr1= array() 默认从0开始...
CurrentRegion属性示例
国际海员
01-26 6439
我的地盘我作主——CurrentRegion属性示例分类:ExcelVBA>>ExcelVBA对象模型编程>>常用对象>>Range对象CurrentRegion属性代表什么您可能经常在程序代码中看到CurrentRegion属性，它是一个非常有用的属性，返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域)，如图1所示。500){this.resized=true;this
中国旅游产业变革：合纵连横，适应新趋势
面对这些趋势，旅游产业需要采取"合纵连横"的战略，即通过联盟、合作、技术创新等方式，加强行业内与跨行业的协同，以适应消费者的变化，利用新技术带来的机遇，同时应对来自在线平台的竞争。旅游企业应当积极拥抱...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值