停止Excel自动将自动换行文本应用于复制的数据

Question

这里的问题是，每当我将数据从一个工作表复制并粘贴到另一个工作表中时，通过数据单元进行复制将自动将自动换行文本应用于其自身。如何阻止这种行为的发生？

脚本真的很简单。

Sub TestScript()
    Dim ActiveWB As Workbook
    Dim WS1 As Worksheet
    Dim WS2 As Worksheet

    Set ActiveWB = ActiveWorkbook
    Set WS1 = ActiveWB.Worksheets(1)
    Set WS2 = ActiveWB.Worksheets(2)

    WS1.UsedRange.Cells.SpecialCells(xlCellTypeVisible).Copy
    WS2.Range("A1").PasteSpecial xlPasteValues
    WS2.Range("A1").PasteSpecial xlPasteFormats
End Sub

我使用xlCellTypeVisible是因为我要复制第一个工作表中的过滤数据。

第一个工作表数据：

第二个工作表数据：

我正在处理的数据只是一些常规的列表数据。数据的标题行在复制之前已经应用了换行文本，但是对于其余单元格，我只想复制数字格式，字体样式，颜色填充等，但是它将换行文本应用于所有数据自动。复制时是否可以阻止excel执行此操作？