写一个宏,完成单个单元格赋值去掉回车

岁月玲珑

于 2024-02-28 00:45:37 发布

阅读量328

点赞数 2

分类专栏： windows 文章标签：开发语言

本文链接：https://blog.csdn.net/yin18827152962/article/details/136334797

版权

windows 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

本文介绍了如何编写一个VB宏脚本来自动复制Excel单元格内容，移除回车，并设置快捷键以简化工作流程。注意需将宏保存为xlsm格式并引入DataObject库才能正常使用。

摘要由CSDN通过智能技术生成

使用ctrl+shift+c复制单元格(不含回车)

工作中尝尝需要从excel单元格中复制, 但是总是带一个回车, 有时候每次都需要去删除一下, 很麻烦, 写一个vb宏脚本, 然后设置快捷键, 完美解决

创建宏

在这里插入图片描述
复制下面命令

Sub SC()
    Let onlyOne = 0
    Dim c As Range
    Dim preC As Range
    For Each c In Selection
        onlyOne = onlyOne + 1
        Set preC = c
    Next c

    If onlyOne = 1 Then
        Dim objData As DataObject
        Set objData = New DataObject
        objData.SetText preC.Value, 1
        objData.PutInClipboard
    End If
End Sub