在VBA中对文本字符串进行多点操作实现行上粘贴函数

Function PasteRows(source As String, rowCount As Integer) As String
    Dim result As String
    Dim i As Integer
    
    For i = 1 To rowCount
        result = result & source & vbCrLf
    Next i
    
    PasteRows = result
End Function

Sub TestPasteRows()
    Dim source As String
    Dim result As String
    
    source = "Hello, World!"
    result = PasteRows(source, 5)
    
    MsgBox result
End Sub

Function PasteRows(source As String, rowCount As Integer) As String
    Dim result() As String
    Dim i As Integer
    
    ReDim result(1 To rowCount)
    
    For i = 1 To rowCount
        result(i) = source
    Next i
    
    PasteRows = Join(result, vbCrLf)
End Function