使用代码修改 Excel 公式

Question

我有一个 Excel 2010 工作簿，其中包含 22 个工作表。第一个工作表标记为 DATA，其中数据由用户输入。 A1-N1 行包含标签。 A2-A18 行包含 2015 年 1 月从单元格 A2 开始的 17 个位置的数据，即第 2 行包含位置 1 的数据，第 3 行包含位置 3 的数据等。2 月的数据从第 19 行开始，3 月从第 36 行开始，等等。

在每个工作表 A1-M1 上是标签，第 2-13 行是 1 月 - 12 月。工作表 #2 上的单元格 B2 引用工作表 DATA 上的单元格 J2。工作表#2 的第 2 行的其他公式引用了工作表 DATA 的第 2 行的单元格。工作表#2 的第 3 行引用了 DATA 第 19 行的单元格。在每个位置工作表的 N 列中，单元格 N2 中都有一个数字，对应于工作表 DATA 上的适用行。

这是我的一个公式的示例：

=(IF(ISBLANK(DATA!D2),"-",IF(ISERROR(DATA!E2/DATA!D2),"N/A",(DATA!E2/DATA!D2))))。

我想要 VB 代码或宏？，它将编辑每个工作表上的每个公式，方法是将公式中的当前数字替换为同一行 N 列中的数字，即如果 N7 包含数字 88该代码将通过删除公式中的当前数字并替换为数字 88 来更改该行上的任何公式。

其他信息：

在每个工作表上，B-M 列都有不同的公式。代码需要获取该行 N 列中的数字，并将该公式中的任何数字替换为该行的 N 列中的数字，对于每一行，对于每个工作表。

目前，我必须触摸每个工作表上的每个公式，这太耗时了。从 4 月开始，地点将从 17 个增加到 148 个，这将需要编码以进行适当的更改。

数据工作表图片

1R 位置工作表图片

Answer 1

我不在我的工作计算机上，所以我没有机会测试这段代码，但我相信这应该可以满足您的需求。如果有任何问题，请告诉我，我明天上班看看。

Sub replace_numbers()
  Dim ws As Worksheet
  Dim c As Range
  Dim replace_with As Long
  Dim objRegex As Object

  'Application.EnableEvents = False
  'Application.ScreenUpdating = False
  'Application.DisplayStatusBar = False
  'Application.Calculation = xlCalculationManual

  Set objRegex = CreateObject("vbscript.regexp")

  With objRegex
    .Global = True
    .Pattern = "\d+"
  End With

  For Each ws In Worksheets
    If ws.Name <> "DATA" Then
      For Each c In ws.Range("B2:M13")
        replace_with = CLng(Intersect(ws.Columns("N"), ws.Rows(c.Row)).Value)
        c.Formula = objRegex.Replace(c.Formula, replace_with)
      Next
    End If
  Next

  'Application.EnableEvents = True
  'Application.ScreenUpdating = True
  'Application.DisplayStatusBar = True
  'Application.Calculation = xlCalculationAutomatic
End Sub

如果代码按预期运行，请删除 Application 调用之前的撇号，以使代码运行得更快。

Answer 2

你总是可以使用类似的东西：

If IsEmpty(Worksheets("DATA").Cells(2, 4)) And _
   IsError(Worksheets("DATA").Cells(2, 5).Value / Worksheets("DATA").Cells(2, 4).Value) Then
   ActiveCell = "NA"
Else
   ActiveCell = Worksheets("DATA").Cells(2, 5).Value / Worksheets("DATA").Cells(2, 4).Value
End If

你翻译成 VBA 代码的公式是什么。

但是，您必须根据输入数据中的内容添加错误处理程序和其他内容。