尝试编辑现有宏以将输入从数字字段更改为文本字段

Question

我是宏/VBA 新手，正在尝试编辑我的前任构建的内容。 本质上，我有一份来自 CRM 的报告，该报告导出 9 个字段，然后进行复杂的重新排序。我想用名为“课程会话”的文本字段替换这 9 个字段之一（名为“排序优先级”的数字字段）。 我想我已经确定了宏中需要更新的位置，但已经尝试了我能想到的所有方法，但无法弄清楚如何使其正确更新。

提前致谢。

这是原样的代码（我尝试将“排序优先级”替换为“课程会话”，并将我认为的整数函数更改为字符串，但没有任何效果）。 无法弄清楚我错过了什么......

    Function FindQAReportStartColumn() As String
        For Each cell In ThisWorkbook.Worksheets("INPUT").Range("B1:B50")
            If InStr(1, CStr(cell.Value), "Sort Priority") > 0 Then
                FindQAReportStartColumn = cell.address
                Exit Function
            End If
        Next cell
    
        FindQAReportStartColumn = ""
    End Function

Answer 1

您可以只搜索该字符串的工作表

Function FindQAReportStartColumn() As String

    Dim rng As Range
    With ThisWorkbook.Worksheets("INPUT").Cells
        Set rng = .Find("Course Session", LookIn:=xlValues, lookat:=xlPart, _
                        MatchCase:=False)
        If rng Is Nothing Then
            FindQAReportStartColumn = ""
        Else
            FindQAReportStartColumn = rng.Address
        End If
    End With
    
End Function