在https://stackoverflow.com/a/60896244/692098的帮助下，将你在vba中构建的字符串复制到剪贴板，因为你似乎不想调整工作表并从那里复制，这应该是相当容易的。

Sub criteriaBuilder()
    Dim Lastrow As Long, cRow As Long
    Dim wbD As Workbook
    Dim ws As Worksheet
    Dim sCopy As String
    
    Set wbD = Workbooks("YourData.xlsx") 'adjust to your Data file
    Set ws = wbD.Worksheets("Data") 'and corresponding sheet
    
    Lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To Lastrow 'assuming you have a header
        sCopy = sCopy & ws.Range("A" & i).Value & " AND "
        sCopy = sCopy & ws.Range("B" & i).Value & " AND "
        If i Mod 10 = 1 Or i = Lastrow Then 'Copy every ten lines or when lastrow is reached
            sCopy = sCopy & ws.Range("C" & i).Value
            Clipboard sCopy
            MsgBox ("The 10 are copied, paste them in your other program and then hit OK to continue")
            sCopy = ""
        Else
            sCopy = sCopy & ws.Range("C" & i).Value & " OR "
        End If
    Next i
    MsgBox ("No more people left")
End Sub

Function Clipboard$(Optional s$)
    Dim v: v = s  'Cast to variant for 64-bit VBA support
    With CreateObject("htmlfile")
    With .parentWindow.clipboardData
        Select Case True
            Case Len(s): .setData "text", v
            Case Else:   Clipboard = .GetData("text")
        End Select
    End With
    End With
End Function

这就是你想要的吗
附言：下次试着给我们看看你有什么，以及你正在处理的工作表是什么样子的。