Excel：当最后一列更改编号时，如何获取最后一列的列索引编号

Question

我正在尝试将我的VLOOKUP自动化为每周更新的数据表。目前我的VLOOKUP如下所示：

=VLOOKUP(A3,'[Report.xlsm]All'!$I:$OA,COLUMN('[Report.xlsm]All'!$NX:$NX)-8,0)

每周向表中插入两个新列（在最后一列之前）。新列中填充了新数据，我必须重新编写我的VLOOKUP。

我正在查找的列始终是倒数第三列、倒数第二列和倒数第三列。

有没有一种方法可以通过查找倒数第三、倒数第二和倒数第三列的函数来指定列索引号？我想这样我可以添加一个宏来完成这项工作。

Answer 1

使用第1行中的文本列标题标签，

=VLOOKUP(A3, '[Report.xlsm]All'!$I:$zz, match("zzz", '[Report.xlsm]All'!$1:$1)-8, false)

对于第1行中的日期或数字，请使用1e99而不是“zzz”。

Answer 2

将数据转换为Excel表格，然后使用。范围柱。计数。您可以在选定范围内的单元格中使用Ctrl键转换为表格。确保提示包含所有必需的列。这是一种稳健的方法。

Option Explicit
Public Sub test()
    Dim totalColumns As Long
    With ThisWorkbook.Worksheets("All").ListObjects(1)     
        totalColumns = .Range.Columns.Count
        Debug.Print totalColumns                 '<==All columns
        If totalColumns < 4 Then Exit Sub
        Debug.Print totalColumns - 3             '<== etc
    End With
End Sub

Answer 3

对于最后一列，您可以使用以下代码并将其递减3

Dim lastcolumn As Long
dim ws as worksheet

set ws = activesheet

lastcolumn = ws.UsedRange.Columns.Count

对于公式解决方案，如果数据集没有空标题，可以使用counta函数查找最后一列。

如果您发现任何问题，我们可以稍后修改代码