vba - 获取逻辑列字母

Question

我需要获取我在 Excel 工作表中创建的逻辑列的字母。

当我单击一个单元格时，假设 H7，其中包含数据 23，我可以获得 Te excel H 列，但出于某些商业目的，我想要 A，即与单元格对应的第 5 行中的字母已选。假设是56，我要B。

图2显示了为什么我想要B而不是Excel列I，这是因为如果我插入一列，我的Excel列字母将会改变，但与B中逻辑列字母对应的数字将仅保留在B中。我可以使用以下代码获取 Excel 列字母:

Public Function ColumnLetters(rInput As Range) As String
ColumnLetters = Split(rInput.Address, "$") (1)
End Function

如果提取的列字母是 H，我需要它下面第 5 行的值，即 A 等。对于 I 来说，它是 B，依此类推。

我这样做是为了插入附加列，Excel 列字母会改变，但不会改变我的逻辑列字母。

有人可以帮忙吗？

Answer 1

正如 FDavidov 所说 - 如果我们正确理解您的问题，您可以使用命名范围来实现此目的。

在下面所示的示例中，我突出显示了 A 列，并在 Name Box(红色方 block )中输入了名称 RefThisColumn。我还只选择了单元格 A1 并在 Name Box 中输入 RefThisCell。

然后我可以在 VBA 中使用这些命名范围，而无需更新引用。
插入列以将命名范围移动到 E 列(绿色方 block )后，我运行了完全相同的代码并得到了完全相同的结果: