获取草稿的收件人（AppleScript，Mail.app）(Get the recipient of a draft (AppleScript, Mail.app))

 我的意思是使用内置的过滤函数似乎更符合逻辑，但是如果你绝对坚持使用公式/代码，那么： 
 
 只需使用这个简单的程序 
 
Private Sub sort_wares(From As String, toColumn As Integer)

    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    Dim tbl As ListObject: Set tbl = ws.ListObjects("Table1")
    Dim index As Integer
    index = 2

    For Each Rng In tbl.ListColumns(2).DataBodyRange
        If Trim(LCase(Rng)) = Trim(LCase(From)) Then

            ws.Cells(index, toColumn + 1) = Rng
            ws.Cells(index, toColumn) = Rng.Offset(0, -1)

            index = index + 1
        End If

    Next Rng
End Sub
 
 您可以轻松调用该程序，例如，如果我们从以下数据中查找津巴布韦的所有商品并将其打印到第5列（E），我们将执行以下操作 
 
 Call sort_wares("Zimbabwe", 5) 
 
  

I mean it seems far more logical to utilize the inbuilt filter function, but if you absolutely insist on using formulas / code then:
 
Just use this simple procedure
 
Private Sub sort_wares(From As String, toColumn As Integer)

    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    Dim tbl As ListObject: Set tbl = ws.ListObjects("Table1")
    Dim index As Integer
    index = 2

    For Each Rng In tbl.ListColumns(2).DataBodyRange
        If Trim(LCase(Rng)) = Trim(LCase(From)) Then

            ws.Cells(index, toColumn + 1) = Rng
            ws.Cells(index, toColumn) = Rng.Offset(0, -1)

            index = index + 1
        End If

    Next Rng
End Sub
 
You can easily invoke the procedure, so for example if we from the following data wanted to look up all the wares from Zimbabwe and print them to the 5th Column (E) we would do the following
 
Call sort_wares("Zimbabwe", 5)