VBA Excel - セルの値をコピーし、別のセルの文字間に値を貼り付けます。

Question

値11のセルがあります。この値をコピーして別のセル（別のシート）に貼り付けたい場合は、セル内の文の終わり。

すなわち

値はセルA1であり、iは、文章中でシート2セルA4に貼り付けたい："" 周波数を修正します。

ありがとうございました。

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