String 当我从excel复制并粘贴到记事本时,每个引号后面都有额外的引号

String 当我从excel复制并粘贴到记事本时,每个引号后面都有额外的引号,string,vba,excel,concatenation,String,Vba,Excel,Concatenation,我将以下文本存储在工作表的单元格中 现在,当我从中复制并粘贴到记事本时,我在每个引号后都会得到一个额外的引号符号,所以它就像下面的字符串一样 您可以通过以下方式重新创建: 复制此文本: <!-- CSS goes in the document HEAD or added to your external stylesheet --> <style type="text/css"> table.hovertable { font-family: verdana,a

我将以下文本存储在工作表的单元格中

现在,当我从中复制并粘贴到记事本时,我在每个引号后都会得到一个额外的引号符号,所以它就像下面的字符串一样

您可以通过以下方式重新创建:

复制此文本:

<!-- CSS goes in the document HEAD or added to your external stylesheet -->
<style type="text/css">
table.hovertable {
 font-family: verdana,arial,sans-serif;
 font-size:11px;
 color:#333333;
 border-width: 1px;
 border-color: #999999;
 border-collapse: collapse;
}
table.hovertable th {
 background-color:#009fe3;
  color:#FFFFFF;
 border-width: 1px;
 padding: 8px;
 border-style: solid;
 border-color: #a9c6c9;
}
table.hovertable tr {
 background-color:#e8e8e8;

}
table.hovertable td {
 border-width: 1px;
 padding: 8px;
 border-style: solid;
 border-color: #a9c6c9;
}
</style>
<!-- Table goes in the document BODY -->
<table class="hovertable">
 <th colspan="4">Info Header</th>

<tr onmouseover="this.style.backgroundColor='#74eb61';" onmouseout="this.style.backgroundColor='#e8e8e8';">
 <td>Item 1A</td><td>Item 1B</td><td>Item 1C</td>
</tr>

<tr onmouseover="this.style.backgroundColor='#74eb61';" onmouseout="this.style.backgroundColor='#e8e8e8';">
 <td>Item 2A</td><td>Item 2B</td><td>Item 2C</td>
</tr>

<tr onmouseover="this.style.backgroundColor='#74eb61';" onmouseout="this.style.backgroundColor='#e8e8e8';">
 <td>Item 3A</td><td>Item 3B</td><td>Item 3C</td>
</tr>

<tr onmouseover="this.style.backgroundColor='#74eb61';" onmouseout="this.style.backgroundColor='#e8e8e8';">
 <td>Item 4A</td><td>Item 4B</td><td>Item 4C</td>
</tr>

<tr onmouseover="this.style.backgroundColor='#74eb61';" onmouseout="this.style.backgroundColor='#e8e8e8';">
 <td>Item 5A</td><td>Item 5B</td><td>Item 5C</td>
</tr>

</table>

桌子{
字体系列:verdana、arial、无衬线字体;
字体大小:11px;
颜色:#333333;
边框宽度:1px;
边框颜色:#999999;
边界塌陷:塌陷;
}
表4.4.4.4.4.4表4{
背景色:#009fe3;
颜色:#FFFFFF;
边框宽度:1px;
填充:8px;
边框样式:实心;
边框颜色:#a9c6c9;
}
table.hovertable tr{
背景色:#e8e8e8;
}
table.hovertable td{
边框宽度:1px;
填充:8px;
边框样式:实心;
边框颜色:#a9c6c9;
}
息头
项目1A项目1B项目1C
项目2a项目2b项目2C
项目3a项目3b项目3C
项目4AItem 4BItem 4C
项目5A项目5B项目5C
并粘贴到Excel中的任意单元格


然后复制单元格内容并粘贴到记事本上,你会发现额外的引号,这是“设计行为”。剪贴板参与将单元格值从XL传输到Notepad++的过程意味着对文本字符串进行评估。测试了很多场景(我没有完整的列表),但似乎您的粘贴操作被解释为创建逗号分隔或制表符分隔的TXT导出文件。引号字符被加倍,因为系统将引号字符用作XL到TXT导出中的文本限定符


不幸的是,您不想要这种过渡行为,但其他许多人想要。如果需要绕过它,请在编辑模式下从公式栏或单元格中复制文本字符串。这不是Excel的做法,甚至不是Office剪贴板(OCB)。正是Windows剪贴板的行为试图解释从XL到记事本++的传输。

删除字符串
Stystr=Replace(Trim(wh.Range(“A2”).Text)、“”、“”、“”)中的现有引号。
语句
Dim Stystr、endHTb、strtbstr、tbTag、,ctb作为字符串
只有ctb被标注为
字符串
类型。其他的都是变种。要将它们全部标注为
字符串
类型,请将
Dim Stystr作为字符串,endHTb作为字符串,StRTb作为字符串…
@ScottHoltzman不,我认为这不起作用,因为每个
都被
”替换,
替换“
因此无法区分哪些需要替换。我不确定您所说的每个
都被
替换,而
替换。”“
?你是在说我的公式吗?或者代码的结果?设置变量后,是否可以立即在
Stystr
上执行debug.print,并告知是否从一开始就显示了额外的引号?因为我刚刚测试了它,无法复制您的问题(目前)。好的,明白了。谢谢你,我也觉得很烦人。应该能够绕过任何过渡转换(例如,右键单击、粘贴值类型行为)。您关于复制“公式栏中的文本”的声明是一个很好的解决方案。谢谢