如何实现Excel拷贝内容自动去掉行尾末端断行

原创于 2018-04-09 15:11:28 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

心灵鸡汤同时被 2 个专栏收录

43 篇文章

订阅专栏

各式常识

32 篇文章

订阅专栏

本文介绍如何通过VBA宏在Excel中自定义Ctrl+C快捷键的功能，实现特定的数据复制操作而不带断行。通过创建宏并将其绑定到Ctrl+C快捷键上，可以方便地进行特殊格式的数据复制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub mycopy1()
'
' 宏1 宏
'
' 快捷键: Ctrl+c
' 这个拷贝不带断行，需要创建一个CTRL + C 快捷键的宏，需要创建一个窗体再删掉（可以实现引用Microsoft Form) excel
'
'
' Sub workbook_open()
' Application.OnKey "^{c}", "ThisWorkbook.mycopy1"
' End Sub
' 放置ThieWorkbook中，重新打开excel文件可行 offce2016

Selection.Copy

'Application.CutCopyMode = False

Dim MyData As New DataObject

Dim str
str = Application.ActiveCell.Text

'MsgBox (Len(str))

MyData.SetText str
MyData.PutInClipboard
MyData.SetText ""
Application.StatusBar = Space(10) & "已经拷贝: " & left(str, 40) & Space(10) & Now()

End Sub

Sub workbook_open()
Application.OnKey "^{c}", "ThisWorkbook.mycopy1"
End Sub