在没有烦人的段落标记的情况下复制字符串

时间:2018-03-12 11:51:41

标签: excel vba copy string-formatting

嗨,我有点像菜鸟,所以请保持温柔。我试图通过宏来简化我的生活,只需一个按钮即可复制标准电子邮件。电子邮件存储在一个包含完整电子邮件地址列表的工作表中,因此在Excel中完成所有操作并添加我想要的任何代码都会很方便。

我的问题是,我一直在副本的末尾得到这些讨厌的段落标记,我通常手动编辑它。当我做

这样的事情时,它仍然会发生
range("L6").copy

所以我试过像

这样的东西
dim bla as string
bla = trim(range("L6").value)
bla.copy

但我发现这并不奏效。我甚至试过

left(range("L6").copy,len(range("L6").copy)-1).copy

但这也不起作用。

对于那些关心的人来说,有一些背景知识:我有一个供应商列表,其中包含我所有的供应商信息,包括他们的银行转帐通知的电子邮件地址。在细胞" L6"我有一个我想要使用的多行消息,读取

早上好:

请查看随附的银行转帐付款副本。

此致

消息可能会更改,因此宏应该定位此单元格。这些讨厌的空间太烦人了。我在电子邮件中添加了更多内容,因此继续复制标准电子邮件非常麻烦。我甚至试图通过excel的高级设置来查看 - 没有运气。我不确定,但我认为问题的根源是结束逗号在我突出显示的文本末尾添加了一个额外的段落空间。任何帮助将非常感激。有关详细信息,请参见截图感谢

screenshot

PS。不知道我是否使用正确的标签以获得最佳响应

2 个答案:

答案 0 :(得分:0)

钟,

感谢您的更新。请参考以下屏幕截图:

Spaces

正如您在全部选择(CTRL + A)时所看到的那样,每行末尾都会显示一个间隙。

  1. 文本中没有空格,空格,但选择时间较小。
  2. 第3行有一个空格,导致选择范围更广。
  3. 第3行有一个管道,导致选择间隙较大。
  4. 我不认为这会在副本中翻译空格(我没有遇到从Excel复制并粘贴到Outlook的问题)。

    美好的一天,

    乔纳森。

答案 1 :(得分:0)

好的,奇怪的。所以那些额外的空间停止了。从字面上看,这是重新启动计算机的问题。为什么?怎么样?我责怪微软。整个考验都令人非常失望。

enter image description here