VBA计算Excel中列之间的距离

Question

我决定通过例子来问这个问题。我试图解释整个项目，但如果您尚未从事同一个项目，那么看起来会很混乱，所以我们开始吧。

作为我正在编写的代码的用户，您需要决定希望程序实际抓取哪些列以及将所有计算写入何处。用户可以使用的总共九列，不过我将重点关注前四列，这样它就不会变得太复杂。

前两列是我的程序进行计算所需的列（稍后解释），并且实际上是整个项目运行的基础。我们将它们称为 Data_Before 和 Data_After。

接下来的两列是根据 Data_Before 和 Data_After 中的信息完成的计算。这两列是差异和百分比。就像标题所示，Diff 是 Data_After - Data_Before，Percent 是 Diff / Data_Before。

截至目前，这些列必须彼此相邻。因此，如果 Data_Before 位于“A”列中，则 Data_After 必须出现在“B”中，Diff 出现在“C”中，Percent 出现在“D”中。这是因为我的计算来自记录宏函数。填充 Diff 和 Percent 单元格的代码如下。

' Diff column
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" 
' Percent column
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]" 

抱歉代码中的颜色很奇怪，“Diff 列”和“Percent 列”是注释。无论如何，这里有 FormulaR1C1，这使得程序不灵活。问题是，如何找到 Diff 列与 Data_Before 或 Data_After 列之间的距离，以便用户可以将 Data_Before 放在“A”列中，将 Data_After 放在“B”列中，而将 Diff 和 Percent 列放在任何他们想要的地方？

抱歉问题太长了。

Answer 1

我在完成以下内容后才看到您对程序设置的评论，希望它能以某种方式提供帮助。

Sub InsertDiffPercentCalc(ByVal rngDataBeforeColumn As Excel.Range, ByVal rngDataAfterColumn As Excel.Range, ByVal rngTargetDiffColumn As Excel.Range, ByVal rngTargetPercentColumn As Excel.Range)

' Diff column
rngTargetDiffColumn.FormulaR1C1 = "=RC" & CStr(rngDataAfterColumn.Column) & "-RC" & CStr(rngDataBeforeColumn.Column)
' Percent column
rngTargetPercentColumn.FormulaR1C1 = "=RC" & CStr(rngTargetDiffColumn.Column) & "/RC" & CStr(rngDataBeforeColumn.Column)

End Sub

根据您的评论，您可以创建一个无参数 Sub，但无论如何您仍然必须确定目标列（或至少是它们的地址） - 您是如何做到这一点的？ 编辑刚刚看到您的其他评论。

Sub InsertDiffPercentCalc()

Dim rngDataBeforeColumn As Excel.Range
Dim rngDataAfterColumn As Excel.Range
Dim rngTargetDiffColumn As Excel.Range
Dim rngTargetPercentColumn As Excel.Range

Set wksSettings = ThisWorkbook.Sheets("<settings sheet name>")
Set wksTarget = Application.Workbooks("<target workbook name>").Sheets("<target sheet name>")

Set rngDataBeforeColumn = wksTarget.Range(wksSetting.range("A2").Value & ":" & wksSetting.range("A2").Value)
Set rngDataAfterColumn = wksTarget.Range(wksSetting.range("B2").Value & ":" & wksSetting.range("B2").Value)
Set rngTargetDiffColumn = wksTarget.Range(wksSetting.range("C2").Value & ":" & wksSetting.range("C2").Value)
Set rngTargetPercentColumn = wksTarget.Range(wksSetting.range("D2").Value & ":" & wksSetting.range("D2").Value)

' Diff column
rngTargetDiffColumn.FormulaR1C1 = "=RC" & CStr(rngDataAfterColumn.Column) & "-RC" & CStr(rngDataBeforeColumn.Column)
' Percent column
rngTargetPercentColumn.FormulaR1C1 = "=RC" & CStr(rngTargetDiffColumn.Column) & "/RC" & CStr(rngDataBeforeColumn.Column)

End Sub

其中 wksSetting 是设置表的名称，wksTarget 是目标（输出）表的名称。

Answer 2

根据您的评论，您似乎确切知道将输出放在哪里。正确的？因此，如果 B 列是之后的数据，A 列是之前的数据，并且用户想要 G 列中的 diff 列，您可以将其用于您的 diff 公式：

Range("G1").Formula = "=B1-A1"

还是我误解了？

编辑

您可能会遇到这样的事情：

sheet1.Columns(15).column - sheet1.Columns(13).column ' returns 2

您可以使用它来创建 R1C1 公式。