粘贴多行文本时停止自动换行

粘贴多行文本时停止自动换行

我每天都会遇到多次这种情况:比如说,记事本中有多行文本,我想将它们存储在一个 Excel 单元格中。因此,我会从其他应用程序复制文本,选择要粘贴到的单元格,然后将文本直接粘贴到该单元格的公式栏中。

这会将所有文本存储在单个单元格中,然而AlignmentExcel 会自动将该行扩展为很大的尺寸,并自动将>值设置Wrap Text为 true,我必须手动选择该单元格并将Alignment>Wrap Text值改回False

我很好奇,想知道是否有办法/设置可以在 Excel 中进行更改,以便它在这种情况下不会自动更改格式。

有什么想法/帮助吗?

谢谢!

答案1

我找到了一种在特定工作表上使用 VBA 触发器的方法。

您需要选择要执行的工作表并选择触发器“更改”

然后需要编写下面的宏:

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Sheet1").Range("A1:A10").WrapText = False

End Sub

每次您更改工作表中的单元格时,都会自动将自动换行文本属性恢复为 false。 例子

相关内容