时间戳

首页 > 解决方案 > 停止 excel 自动将换行文本应用于复制的数据

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

问题描述

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

脚本真的很简单。

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 执行此操作？

标签： excelvba

解决方案

推荐阅读