复制了一些信息，可能从EXCEL或其他地方，如电话号码、身份证信息等，需要粘贴到EXCEL，需要以文本形式粘贴下来使用。
vba宏：Sub 粘贴为文本()
Columns(ActiveCell.Column).NumberFormatLocal = "@"
ActiveSheet.Paste
End Sub
js宏：
function Macro1()
{
Columns(ActiveCell.Column).NumberFormatLocal = "@";
ActiveSheet.PasteSpecial()
}
获取选中的文本为列表，然后列表中的每项前面加个'号，然后列表写入剪贴板就行了。
这样是手动操作在前面加‘号？我是想通过多动作设置，直接粘贴为文本状态。’
京公网安备 11010502053266号
vba宏：
Sub 粘贴为文本()
Columns(ActiveCell.Column).NumberFormatLocal = "@"
ActiveSheet.Paste
End Sub
js宏：
function Macro1()
{
Columns(ActiveCell.Column).NumberFormatLocal = "@";
ActiveSheet.PasteSpecial()
}