使用 VBA 将用户定义的函数输入到列中

Question

我目前正在我的工作簿第 2 表的 J 列中使用一个公式，该公式将从第 1 表的 5 列中查找值并返回相应的文本。例如，如果工作表 2 上 M 列中的值与工作表 1 上 J 列中的任何值匹配，它将返回“N”，如果不匹配，它将在 K 列中查找，如果匹配其中的任何值，则返回 D，依此类推.我在 VBA 中这样做，所以使用的公式是

ActiveSheet.Range("J2:J" & intLastRow).FormulaR1C1 = _
    "=IFERROR(IF(ISNUMBER(MATCH(RC[3],Sheet1!C10,0)),""N"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C11,0)),""D"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C12,0)),""R"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C13,0)),""G"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C14,0)),""F"",""""))))), """")"

这个公式效果很好，并填写了相应的值。然后，我创建了一个用户定义的函数，它将查找 J 列中与 C 列中的 ID 号相关联的所有值，并用逗号分隔它们。此功能在输入单元格时也能正常工作。

Function get_areas(ID As String) As String
Dim rng As Range, cel As Range

Set rng = Range("A2:A" & Cells(rows.count,1).End(xlUp).Row)

Dim areas As String
For Each cel In rng
If IsNumeric(Left(cel, 1)) And cel.Offset(0, 2) = ID Then
    If InStr(1, areas, cel.Offset(0, 9)) = 0 Then
        areas = cel.Offset(0, 9) & ", " & areas
    End If
End If
Next cel

areas = Trim(Left(areas, Len(areas) - 2))
get_areas = areas
End Function

理想情况下，我想做的是在 J 列中的所有单元格中运行原始公式，这些单元格不以 A 列中的 Master 开头，然后在所有以 master 开头的单元格中运行 get_areas($C2) 函数在 A 列中。如果这不可行，那么我想在 VBA 中的所有空白单元格中运行 get_areas 函数（这意味着它们没有从原始公式返回任何内容，但仍然有公式）。我已经尝试修改原始公式以阅读

ActiveSheet.Range("J2:J" & intLastRow).FormulaR1C1 = 
"=IFERROR(IF(LEFT(RC[-9],6)=""master"", get_areas(RC[-7]),             
IF(ISNUMBER(MATCH(RC[3],Sheet1!C10,0)),""N"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C11,0)),""D"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C12,0)),""R"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C13,0)),""G"", 
IF(ISNUMBER(MATCH(RC[3],Sheet1!C14,0)),""F"","""")))))), """")"

但收到有关 get_areas 函数的错误。

Answer 1

WorksheetFunction.Trim

所有这些可能与您的情况无关，但在某些类似情况下可能有用。它只是一直在我的脑海里响起，当你无法闭嘴时，你知道它是怎么回事。

我会这样写函数：

Function get_areas(ID As String) As String

Dim rng As Range
Dim i As Long
Dim areas As String

Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)

With rng
    For i = 1 To .Cells.Count
        If IsNumeric(Left(.Cells(i, 1))) And .Cells(i, 1).Offset(0, 2) = ID Then
            If InStr(1, areas, .Cells(i, 1).Offset(0, 9)) = 0 Then
                If i > 1 Then
                    areas = areas & ", " & .Cells(i, 1).Offset(0, 9)
                  Else
                    areas = .Cells(i, 1).Offset(0, 9)
                End If
            End If
        End If
    Next
End With

get_areas = WorksheetFunction.Trim(areas)

End Function

这根本不像'WorksheetFunction'部分那么重要。

WorksheetFunction.Trim 去除单词之间除了单个空格之外的所有空格，而 VBA 的Trim 函数只去除左右空格。

另一个最明显的区别是“If i > 1”块。