[おバカ To VBA] ChatGPTの作ってくれたモジュールを組み合わせる。GPTくん、ありがとう。

Function GetListWithString(searchSheet As String, searchCol As String, targetSheet As String, _
                            targerStartCol As String, targetEndCol As String) As Variant
    Dim searchList As Variant
    Dim tgtRange As Variant
    Dim getList As Variant
    searchList = GetColumnValuesWithString(searchSheet, searchCol)
    tgtRange = GetRangeValues(targetSheet, targerStartCol, targetEndCol)
    GetListWithString = ExtractValues(tgtRange, searchList)
End Function

Sub searchResultGet()
    Dim result As Variant
    result = GetListWithString("test", "target", "test", "start", "end")
    Call AddColumnToGetlist("test", "col3", "getlist", result)
End Sub