[已解决]复制EXCEL单元格中的内容粘贴至记事本如何消除自带的换行符

我不知道呀

复制EXCEL单元格中的内容粘贴至记事本如何消除自带的换行符，比如单元格A1中内容是123，选中单元格A1复制后，粘贴至记事本后，光标会自动定至记事本粘贴内容123的下一行，然后每次粘贴后均要手动删除一行换行，有没有办法在事前解决这个复制EXCEL单元格中的内容自带的换行符呢？
range("a1").copy  然后至记事本中去按下CTRL+V,就会有自带的换行符，但单元格A1中并没有换行符

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-11-13 18:46

使用工作表selectionchange事件+剪贴板操作，可以实现。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.CountLarge > 1 Then Exit Sub
   
3.     If Target = "" Then Exit Sub
   
4.     Dim Clip As Object
   
5.     Set Clip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     Clip.SetText Target.Value, 1
   
7.     Clip.PutInClipboard
   
8. End Sub

复制代码

跳转到最佳答案楼层

心正意诚身修

这个问题一般可以用WORD通配符替换就可以解决。你可以把EXCEL和TXT文件发成附件发出来。。最后想变成什么样的样式也描述 一下。一般就是一个替换就可以实现了。

我不知道呀

心正意诚身修 发表于 2021-11-13 09:33
这个问题一般可以用WORD通配符替换就可以解决。你可以把EXCEL和TXT文件发成附件发出来。。最后想变成什么样 ...

我想能不能在事前就解决，即在复制单元格时就去掉那个自带的换行符，如果粘贴后再替换是事后了，主要实现的功能是选中复元格就复制，省去一步CTRL+C，即target.copy，然后呢我去对应的网页上文本框里按CTRL+V，发现就会自带一个换行符出来，接着还要多一步操作去删除换行符，有没有办法在复制时就去掉那个换行符呢？

大灰狼1976

使用工作表selectionchange事件+剪贴板操作，可以实现。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.CountLarge > 1 Then Exit Sub
   
3.     If Target = "" Then Exit Sub
   
4.     Dim Clip As Object
   
5.     Set Clip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     Clip.SetText Target.Value, 1
   
7.     Clip.PutInClipboard
   
8. End Sub

复制代码

我不知道呀

大灰狼1976 发表于 2021-11-13 18:46
使用工作表selectionchange事件+剪贴板操作，可以实现。

在以上代码基础上，如果对于合并单元格，target这个参数获取不到选中的合并单元格的值，那么想要获取选中合并单元格的值，如果修改代码呢？

大灰狼1976

可以的，手机不方便打代码，晚上发

我不知道呀

大灰狼1976 发表于 2021-11-15 10:28
可以的，手机不方便打代码，晚上发

好的

大灰狼1976

我不知道呀 发表于 2021-11-15 10:04
在以上代码基础上，如果对于合并单元格，target这个参数获取不到选中的合并单元格的值，那么想要获取选中 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim b As Boolean
    On Error Resume Next
      b = Target.MergeCells
    On Error GoTo 0
    If Target.CountLarge > 1 And b = False Then Exit Sub
    If Target(1) = "" Then Exit Sub
    Dim Clip As Object
    Set Clip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Clip.SetText Target(1).Value, 1
    Clip.PutInClipboard
End Sub

我不知道呀

大灰狼1976 发表于 2021-11-15 19:38
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim b As Boolean
    On Error R ...

今天，我在单位里试过对合并单元格Target.Cells(1, 1).Value，target.cells(1).value,target(1).value,都没有获取到合并单元格第一个值，现在就用这段代码这三个写法均能获取，发现这个写法是正确的，我想应该是我对单元格里写了连续的多个选中区域选中导致读不到当前选中的合并单元格中的内容，我明天再去看看，解决那个冲突，谢谢同学让我学习到一种新的写法