エクセルVBA：私はシートの選択を与え、その結果で、その後、私のVBAコードを実行します..私はしたいものを選択範囲</p> <p>からセルに合計値を取得するために、VBAをされたん使用しています選択した複数のセル

Question

のために置換]を使用私は別のセルに値をマージするだろう。

これに代えて、私は私のコードで私はCHR（10）を使用入るためにカンマ&に入る置き換える**

の値が「TRUE」取得しています。私が使用しています

コードは次のとおりです。

Sub abc() 
Dim a As String 
Dim b As String 
a = Selection.Copy 
b = Replace(a, Chr(10), ",") 
ActiveCell.Offset(4, 0).Value = b 
ActiveCell.Offset(4, 1).Value = a 
End Sub 

image

Answer 1

はこれを試してみてください：

Sub abc() 
    Dim a As String 
    Dim b As String 
    a = ActiveCell.Value 
    b = Replace(a, Chr(10), ",") 
    ActiveCell.Offset(4, 0).Value = b 
    ActiveCell.Offset(4, 1).Value = a 
End Sub