excel - 动态读取Column

Question

我有一个问题。我花了几个小时设计了一个表格，它非常适合您的所有反馈。今天，一切都出了问题。这样做的原因是简单的。添加了一些新列，显然，我的表单正在读取的数据现在是错误的。

因此我正在考虑尝试以下...

而不是使用如下的列号

TK = Cells(ActiveCell.Row, "S").Value 'everything in the form refers to the active row

我可能会使用第 1 行中的列标题。

这可能吗？这样，电子表格可以添加任意数量的列，并且表单将动态扫描正确的标题并以这种方式获取列号。

我的想法是，在打开表单时，读入所有标题，挑选出我需要的标题并将它们分配给变量。然后我使用正常代码并将变量替换到列部分中。

听起来很简单，但我不知道如何做到这一点。

Answer 1

使用多功能的Find为您提供快速检测 header 位置或是否丢失的方法

Find details here

在下面的代码中我指定搜索必须返回

• 完全匹配 (xlWhole)
• 区分大小写的匹配 (False)

如果您想要匹配 Game X 中的 Game，则匹配可以是部分匹配 (xlPart)

代码

Const strFind = "Game"

Sub GetEm()
Dim rng1 As Range
Set rng1 = ActiveSheet.Rows(1).Find(strFind, , xlValues, xlWhole, , , False)
If Not rng1 Is Nothing Then
MsgBox "Your column is " & rng1.Column
Else
MsgBox strFind & " not found", vbCritical
End If
End Sub