复制，粘贴到新地图并删除换行符

Question

任务是：复制特定范围内的值，打开一个新的excel工作簿，粘贴这些值并删除新工作簿中B列中的所有换行符。目前，我很难在VBA中进行管理。

Sub RemoveBreaks()
Dim Text As String

Range("A1:C3").Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).Range("A1").Select
ActiveSheet.Paste

Text = Sheets(1).Range("B:B").Replace(Str(10), "")
End Sub

出于某种疯狂的原因，我目前不了解此代码实际上可在1台PC上运行，但在另一台PC上却无能为力。知道为什么或如何解决这个问题吗？

添加时：

Range("B:B") = Text

我在新工作簿工作表的B列中仅获得值“ true”。

非常感谢您的帮助，非常感谢！最好的问候

Answer 1

删除：

Text = Sheets(1).Range("B:B").Replace(Str(10), "")

并使用：

Range("B:B").Replace vbNewLine, ""

相反。非常感谢BigBen的帮助！