Question

我正在使用vba从选择范围

获取单元格中的组合值

我想做的是..我在表格中选择并运行我的vba代码，然后在结果中我将在另一个单元格中获得合并值。

但不是这样，我正在获得价值＆＃34; TRUE＆＃34;

**在我的代码中我将enter替换为comma＆amp;输入我使用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

Excel VBA：使用替换多个选定的单元格

1 个答案: