VBA Excel-复制单元格值并将值粘贴在另一个单元格的字符之间

Question

I have a cell with value 11 and i want to copy this value and paste it in another cell (of another sheet) between characters "" or at the end of the sentence within the cell.

ie

the value 11 is in cell A1 and i want to paste it in sheet 2 cell A4 in the sentence : modify frequency " 11 ".

thanks in advance for any help.

Answer 1

Private Sub findandreplace()
    Dim string1 As String
    Dim string2 As String
    Dim string3 As String

    string1 = ThisWorkbook.Sheets("Sheet1").Range("a1").Value
    string2 = ThisWorkbook.Sheets("Sheet2").Range("a4").Value
    string3 = Replace(string2, " ", string1)
    ThisWorkbook.Sheets("Sheet2").Range("a4").Value = string3

    Debug.Print ; string1
    Debug.Print ; string2
    Debug.Print ; string3
End Sub