excel vba基础入门_VBA与Excel入门——常用函数（单元格定位函数）

最新推荐文章于 2025-03-12 10:21:02 发布

18918258191

最新推荐文章于 2025-03-12 10:21:02 发布

阅读量1.7k

点赞数

文章标签： excel vba基础入门

本文链接：https://blog.youkuaiyun.com/weixin_30977095/article/details/112105746

版权

本文介绍了Excel VBA中用于单元格定位的三个关键函数：Offset, Resize和End。Offset函数通过指定行和列相对位置来平移表格；Resize函数用于改变选定区域的行数和列数，常用于复制区域；End函数则帮助找到特定方向上的第一个有数据的单元格。示例代码展示了这三个函数的具体用法。" 133036421,19987386,机器学习实现人脸识别：OpenCV与深度学习的应用,"['计算机视觉', '机器学习', '深度学习', 'OpenCV', 'dlib']

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

常用的单元格定位函数日常工作中，工作表存放数据的最大行列可能不固定或者无法知道需要操作的单元格的绝对位置，但是知道其相对位置当然可以使用循环去寻找，但效率偏低循环与以下三个函数结合效果更好

函数名称offsetresizeend函数功能平移表格数组选取定位最后一个其实只是想用一下Markdown表格

offset(行相对位置, 列相对位置)
同行为0，向下为正，向上为负
同列为0，向左为负，向右为正

代码如下

Sub test() Rem>>定义工作表 Set sht = ThisWorkbook.Worksheets("举例") sht.Cells(1, 1) = "起点位置" sht.Cells(1, 1).Offset(1, 2) = "相对位置"End Sub

resize(行数, 列数)
构成一个数组或者一个单元格区域
适用于特定区域整体复制
被复制区域与复制区域大小应一致
被复制区域resize后需增加.Value

代码如下：

Sub test() Rem>>定义工作表 Set sht = ThisWorkbook.Worksheets("举例") sht.Range("B7").Resize(1, 3) = sht.Range("B5").Resize(1, 3).ValueEnd Sub

end(特定参数)
特定参数为：xlUp，xlToLeft，xlDown，xlToRight
xlUp：从下往上，第一个有数据的单元格
xlToLeft：从右往左，第一个有数据的单元格
上下无To，左右有To

代码如下：

Sub test() Rem>>定义工作表 Set sht = ThisWorkbook.Worksheets("举例") MaxHang = sht.Cells(Rows.Count, "A").End(xlUp).Row MaxLie = sht.Cells(5, Columns.Count).End(xlToLeft).Column Debug.Print ("MaxHang=" & MaxHang) Debug.Print ("MaxLie=" & MaxLie)End Sub