如何在Excel单元格地址变动时通过VBA读取目标单元格值？

当单元格位置因新增内容偏移时，固定单元格地址的VBA代码会失效，以下几种方法可稳定获取目标值：

1. 使用命名区域 #

给目标单元格定义固定名称，无论单元格位置如何变化，通过名称即可定位取值：

• 手动操作：选中目标单元格（如B2），在Excel顶部名称框输入自定义名称（如CompanyName）回车确认；同理给B3定义DirectorName。
• VBA代码示例：

coy = StrConv(Trim(ThisWorkbook.Names("CompanyName").RefersToRange.Value), vbProperCase)
director = StrConv(Trim(ThisWorkbook.Names("DirectorName").RefersToRange.Value), vbProperCase)

2. 通过表头文本查找目标单元格 #

假设表格有明确表头（如A列是标签，B列是对应值），通过查找表头文本定位目标单元格：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(WS_Setting)

' 获取"公司"对应的B列值
Dim coyCell As Range
Set coyCell = ws.Columns("A").Find(What:="公司", LookIn:=xlValues, LookAt:=xlWhole)
If Not coyCell Is Nothing Then
    coy = StrConv(Trim(coyCell.Offset(0, 1).Value), vbProperCase)
End If

' 获取"负责人"对应的B列值
Dim directorCell As Range
Set directorCell = ws.Columns("A").Find(What:="负责人", LookIn:=xlValues, LookAt:=xlWhole)
If Not directorCell Is Nothing Then
    director = StrConv(Trim(directorCell.Offset(0, 1).Value), vbProperCase)
End If

注：LookAt:=xlWhole确保完全匹配表头文本，避免误匹配；添加空值判断可防止找不到表头时报错。

3. 使用结构化表格 #

将数据区域转换为Excel结构化表格（按Ctrl+T），通过表名和列名取值：

• 操作：选中数据区域按Ctrl+T创建表格，设置表名为tbl_Setting，将列名改为“公司”“负责人”。
• VBA代码示例：

Dim tbl As ListObject
Set tbl = ThisWorkbook.Worksheets(WS_Setting).ListObjects("tbl_Setting")

' 取表格第一行的"公司"值
coy = StrConv(Trim(tbl.ListColumns("公司").DataBodyRange(1).Value), vbProperCase)
' 取表格第一行的"负责人"值
director = StrConv(Trim(tbl.ListColumns("负责人").DataBodyRange(1).Value), vbProperCase)

注：结构化表格会自动扩展范围，新增行/列后无需修改代码，只要列名不变即可正常取值。

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