Excel VBA：使用.Cells（）动态引用单元格公式中的单元格

Question

我想创建一个引用像B1这样的单元格的单元格公式，例如ActiveSheet.Cells(1,x).Formula = "=B1*" & x。但是，我想使用.Cells函数而不是Range引用来引用单元格。

假设：

Dim x As Integer 
Dim y As Integer 
x = 5
y = 10

我想要这个：

ActiveSheet.Cells(1,x).Formula = "=" & ActiveSheet.Cells(y,1) & "*" & x 

提供与：

相同的输出

ActiveSheet.Cells(1,x).Formula = "=B" & y & "*" & x

理想情况下，我希望能够动态更改我在公式中引用的单元格的行和列。但是，我仍然希望单元格在公式中显示为单元格，而不仅仅是引用单元格的值。

Answer 1

如果我看到的正确，那么您的问题是您希望将单元格编号映射到其单元格名称;类似于：

ActiveSheet.Cells(1,x).Formula = "=" & Chr(Ord("A") + 1) & y & "*" & x

请注意，这只适用于前26列，之后您需要找到更好的解决方案。