如何让VBA根据其他单元格的值定位Supermarket工作表的对应列

核心逻辑 #

你已在ws工作表的V4单元格存储了目标列的列序号，直接通过Cells(行号, 列号)的写法替代硬编码的列字母引用即可，该写法天然支持动态传入列参数。

修改后完整代码 #

Dim last As Long
Dim i As Long
Dim TargetCol As Long ' 新增变量存储目标列号
' 先读取目标列号，加简单校验避免无效值
If IsNumeric(ws.Range("V4").Value) And ws.Range("V4").Value > 0 Then
    TargetCol = ws.Range("V4").Value
Else
    MsgBox "目标列号无效，请检查ws表V4单元格内容"
    Exit Sub
End If
last = Worksheets("Supermarket").Cells(Rows.Count, "A").End(xlUp).Row
ReDim UniqueID(0 To last) As String

If ws.Range("V4") <> "" Then
    For i = 0 To last
        ' 替换原硬编码Q2，用Cells动态定位
        UniqueID(i) = Worksheets("Supermarket").Cells(2 + i, TargetCol).Value
    Next i
End If

代码说明 #

• 新增TargetCol变量提前读取校验列号，避免运行时错误
• 原Range("Q2").Offset(i,0)等价于Cells(2+i, 列号)，逻辑完全一致，仅列号改为从单元格动态读取
• 如果后续需要根据V3的列名匹配列号（不用V4存储的列号），也可以新增列名匹配逻辑，示例如下（可选）：

' 可选：根据V3的列名自动匹配列号，无需提前存储列号
Dim ColName As String
ColName = ws.Range("V3").Value
TargetCol = Worksheets("Supermarket").Rows(1).Find(What:=ColName, LookIn:=xlValues, LookAt:=xlWhole).Column

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