请教下如何在不影响段落的情况下去除隐藏的双引号

sziris

我从网页上复制下来的文本，里面有隐藏双引号。
我想去除隐藏的双引号，但是又不影响原来的段落，如果用clean就变成一行了。。

mykitami

没有发现有隐藏的双引号啊，只有隐藏的换行符

sziris

mykitami 发表于 2024-5-9 10:12
没有发现有隐藏的双引号啊，只有隐藏的换行符

复制到记事本就能看到了

sziris

复制到TXT文件效果如图所示

魚。。

你这样复制，复制什么文本进去只要是换行的，都有这个双引号，可以双击进去复制，或者粘贴完替换

hxj119

第一次见这样的情况，看一看高人答复

sziris

魚。。 发表于 2024-5-9 10:25
你这样复制，复制什么文本进去只要是换行的，都有这个双引号，可以双击进去复制，或者粘贴完替换

现在的情况是双击进去复制会很麻烦，因为还有其他的别的东西。
目前只能手动删除或替换。

有没有用公式能一劳永逸，或者VBA代码也行。

mykitami

sziris 发表于 2024-5-9 10:17
复制到记事本就能看到了

刚才试了一下，只要你在单元格中输入单行的内容，复制后粘贴到记事本中去，都没有双引号；但是在单元格中输入的内容有换行的情况下，复制粘贴到记事本中，就会有双引号，所以这个双引号，不是EXCEl单元格中实际存在的，有可能是一种格式，所以粘贴到记事本就转换成双引号了。
解决方法：
你在编辑栏中进行复制或单元格内双击后复制，问题就解决了

魚。。

sziris 发表于 2024-5-9 10:36
现在的情况是双击进去复制会很麻烦，因为还有其他的别的东西。
目前只能手动删除或替换。

你批量复制进记事本，然后ctrl+h把引号全部替换掉，不就行吗。当然，用vba提取也行

1. 
   
2. <div>Sub Fish()
   
3.     Dim aa, i&, j&
   
4.     Dim txt_f$
   
5.    
   
6.     txt_f = ThisWorkbook.Path & "\提取数据.txt"
   
7.     aa = Range("a1:a2")
   
8.    
   
9.     Open txt_f For Output As #1
   
10.     For i = 1 To UBound(aa)
    
11.         For j = 1 To UBound(aa, 2)
    
12.             Print #1, aa(i, j)
    
13.         Next
    
14.     Next
    
15.     Close #1
    
16. End Sub</div>

复制代码

sziris

mykitami 发表于 2024-5-9 10:48
刚才试了一下，只要你在单元格中输入单行的内容，复制后粘贴到记事本中去，都没有双引号；但是在单元格中 ...

谢谢，辛苦帮我测试了。
因为这段文本只是我要复制内容的一个组成部分，还有很多自己加上去的段落要一并复制，所以用你的方法复制，虽然没有那个奇怪的双引号，但是会影响整体的效率。

看来目前还是只能手动删除了，之前也研究了很久，就是搞不定这个双引号。