Excel VBA如何在指定列查找含特定文本的单元格并获取对应行号

VBA代码修正与实现 #

报错原因说明

• 常量拼写错误：你代码中x1Values用的是数字1，VBA对应常量为xlValues（小写字母L）
• 查找范围错误：需求为查找B列，代码中错误指定了C:C列

无变量直接实现（符合你不定义文本变量的要求）

直接替换你原有硬编码行号的代码，后续新增行无需修改：

ThisWorkbook.Worksheets("Machine Specification").Cells( _
    ThisWorkbook.Sheets("Machine Specification").Range("B:B").Find( _
        What:="Lower Film Width", LookIn:=xlValues, LookAt:=xlWhole _
    ).Row, _
    ActiveCell.Column _
).Value

单独获取目标行号的写法

Dim targetRow As Long
targetRow = ThisWorkbook.Sheets("Machine Specification").Range("B:B").Find( _
    What:="Lower Film Width", LookIn:=xlValues, LookAt:=xlWhole _
).Row

健壮性优化版本（添加未找到的异常处理）

避免查找不到对应内容时触发运行时报错：

Dim findRng As Range
Set findRng = ThisWorkbook.Sheets("Machine Specification").Range("B:B").Find( _
    What:="Lower Film Width", LookIn:=xlValues, LookAt:=xlWhole _
)

If Not findRng Is Nothing Then
    ' 匹配成功，执行对应逻辑
    Debug.Print "匹配行号：" & findRng.Row
    ' 示例：赋值目标单元格
    ThisWorkbook.Worksheets("Machine Specification").Cells(findRng.Row, ActiveCell.Column).Value = "自定义内容"
Else
    ' 未匹配到内容的处理逻辑
    Debug.Print "未找到指定内容：Lower Film Width"
End If

参数说明

• LookAt:=xlWhole：完全匹配单元格内容，避免误匹配包含该字符串的其他单元格
• 如需部分匹配，可将LookAt参数修改为xlPart

内容的提问来源于stack exchange，提问作者Eduards