2024年3月19日发(作者：)

vba某单元格以上第1个非空单元格的行号

【实用版】

目录

简介

2.获取某单元格以上第 1 个非空单元格的行号方法

3.示例代码

正文

简介

VBA（Visual Basic for Applications）是一种 Visual Basic 的编

程语言，主要用于开发 Microsoft Office 应用程序的自定义功能。通过

VBA，用户可以编写自定义的宏和函数，实现对 Office 软件的自动化操

作。在 Excel 中，VBA 可以实现对工作表、单元格等对象的控制，从而

简化复杂的数据处理任务。

2.获取某单元格以上第 1 个非空单元格的行号

在 Excel 中，可以使用 VBA 代码获取某单元格以上第 1 个非空单

元格的行号。以下是一个示例代码：

```vba

Sub FindFirstNonEmptyRowNumber()

Dim ws As Worksheet

Dim rng As Range

Dim firstNonEmptyRow As Long

" 设置工作表对象

第 1 页 共 2 页

Set ws = eets("Sheet1")

" 设置要查找的区域

Set rng = ("A1:A10")

" 查找第 1 个非空单元格的行号

firstNonEmptyRow = (What:="*", LookIn:=xlValues,

LookAt:=xlWhole).Row

" 输出结果

MsgBox "某单元格以上第 1 个非空单元格的行号为：" &

firstNonEmptyRow

End Sub

```

在这个示例代码中，我们首先定义了一个工作表对象`ws`，然后定义

了一个要查找的区域`rng`。接着，我们使用`Find`方法查找第 1 个非空

单元格，并将其行号存储在变量`firstNonEmptyRow`中。最后，我们使用

`MsgBox`函数输出结果。

3.示例代码

将以上代码复制到 Excel VBA 编辑器中的一个模块，并运行宏。将

弹出一个消息框，显示某单元格以上第 1 个非空单元格的行号。

第 2 页 共 2 页