Excel VBA - 如何将单元格引用更改为倒数第二列和最后一列

Question

我的第一列由货币名称组成，列数据是每月汇率（第一行是月份名称）。

每个月，我都会添加一个包含最新汇率的新列。 我需要将上个月汇率和本月汇率的单元格引用修改为表格的倒数第二列和最后一列。 有任何代码吗？

谢谢

Answer 1

lLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

假设 header 在第一行，这将给出最后一列。 否则，相应地更改第一个参数

Columns.Count给出工作表中的总列数（在新的 Excel 格式中为 16384）

Cells(1, Columns.Count)将给出第一行最后一列的单元格范围

Cells(1, Columns.Count).End(xlToLeft)将给出第一行中最后一个非空白列的范围。 它模拟了 Ctrl+Left 键

最后， Cells(1, Columns.Count).End(xlToLeft).Column将给出 header 中最后一列的列号

然后，您可以使用 Cells(i, lLastColumn) 引用最后一列中的其他数据

Answer 2

你不需要代码。 只需对您的设置进行很小的更改，您就可以使用此 function。

=INDEX(Sheet1!$A$1:$ZZ$1000, MATCH($A3,Sheet1!$A:$A,0),MATCH(MAX(Sheet1!$1:$1),Sheet1!$1:$1,0))

所需的更改是在工作表的第一行输入日期。 （我将其称为Sheet1 ，但它可以是任何名称。）要制作像“一月”这样的标题，请输入 1/1/2021 并将单元格格式化为自定义mmmm 。 使用mmm yy格式显示“Jan 21”等。在第一列中有这样的日期 - 即 B 列 - 使用此公式编写后续列标题： =EDATE(B1,1)并复制到右侧。

代替Sheet1:$A$1:$ZZ$1000我将使用动态命名范围。 我会使用该范围的一部分或独立声明的第二个命名范围，而不是Sheet1:$1:$1)但这在很大程度上是一个品味问题。

现在， MAX(Sheet1:$1:$1)返回第 1 行中最大（最新）的日期。 MATCH(MAX(Sheet1:$1,$1):Sheet1,$1:$1,0)返回该日期的列， MATCH(MAX(Sheet1:$1,$1):Sheet1,$1:$1,0)-1将是前一个月的列。

MATCH($A2,Sheet1:$A,$A,0)返回 Sheet1 的 A 列中 A2 匹配项的行号。 当然，这就是您拥有货币的地方，其中一种货币必须在您拥有公式的工作表的 A2 中，而 INDEX 指定所有该工作表时不能在同一张工作表上。 因此，该公式将返回最新列的比率。 当您添加另一列时，公式会自动采用最新的。