Excel的VBA：使用替代多個所選單元格

Question

我使用VBA從選擇範圍的細胞獲得總價值

什麼我想要做的是..我給在紙張選擇和運行我的VBA代碼，然後在結果我會在另一個單元格中合併值。

但不是這個我得到的「真」

**在我的代碼替換進入到逗號&用於輸入我用CHR（10）。

的代碼，我現在用的就是：

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