Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA中使用“的公共函数”;vbCr“;粘贴到Excel外部时返回带引号的文本不正确_Excel_Vba - Fatal编程技术网

VBA中使用“的公共函数”;vbCr“;粘贴到Excel外部时返回带引号的文本不正确

VBA中使用“的公共函数”;vbCr“;粘贴到Excel外部时返回带引号的文本不正确,excel,vba,Excel,Vba,我正在尝试使用VBA生成一个文本字符串。然而,粘贴结果字符串时,它总是被引号包围。这仅在使用enter键时发生 我尝试过使用vbLf,vbCrLf和vbCr,都得到了相同的结果 Public Function tester() tester = "first line" & vbCr & "next line" End Function 在工作簿中使用公式=tester()时,结果与Excel中的预期一致。然而,我们在粘贴(比如在

我正在尝试使用VBA生成一个文本字符串。然而,粘贴结果字符串时,它总是被引号包围。这仅在使用enter键时发生

我尝试过使用
vbLf
vbCrLf
vbCr
,都得到了相同的结果

Public Function tester()
    tester = "first line" & vbCr & "next line"
End Function
在工作簿中使用公式
=tester()
时,结果与Excel中的预期一致。然而,我们在粘贴(比如在记事本中)时预期的结果如下:

一线

下一行

然而,实际结果是:

“第一行

下一行“


这些引述是不可取的,我将非常感激听到你要说的话。谢谢大家!

使用Word作为中介可能会有所帮助


(谷歌搜索“excel copy multiline cell paste quotes”的前4个结果)

刚才我自己也尝试过,我没有遇到过你的问题。如果您
debug.print tester
返回的字符串是什么,是否可以确认您正在使用的Excel版本?另外,如果我将其用作Excel公式
=tester()
它没有换行符,您也是这样吗?@Mr.Burns在Office 365中,您不会“看到”CR,但它在那里。(您需要逐个字符检查才能找到它)。此外,粘贴到记事本上的引号也存在问题。