提问人：Luis 提问时间：11/18/2023 更新时间：11/18/2023 访问量：31
VBA 复制粘贴，无需从其他工作簿设置格式
VBA Copy Paste without formatting from another workbook
问：
我有这个代码，可以帮助我将信息从一个工作簿复制粘贴到另一个工作簿。这些值使用格式和公式粘贴，但我想将它们粘贴为简单文本。我试图添加 但是我收到一个错误说..PasteSpecial Paste:=xlPasteValuesCompile Error: Expected: end of statement
Sub get_data()
Dim Wb1 As Workbook
'Dont update screen, works faster.
Application.ScreenUpdating = False
'Open Workbook. Input FULL path inside quotation marks, including extension of the file.
Set Wb1 = Workbooks.Open("wocnewoi.xlsm")
'Data gets filled with the following code:
'Information
Wb1.Worksheets("Info").Range("G14").Copy _
ThisWorkbook.Worksheets("Information").Range("C6")
Wb1.Worksheets("Info").Range("G16").Copy _
ThisWorkbook.Worksheets("Information").Range("C8")
Wb1.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
答：
1赞
taller
11/18/2023
#1
将值直接分配给单元格比使用 更有效。Copy/PasteSpecial
请尝试。
ThisWorkbook.Worksheets("Information").Range("C6").Value = _
Wb1.Worksheets("Info").Range("G14").Value
ThisWorkbook.Worksheets("Information").Range("C8").Value = _
Wb1.Worksheets("Info").Range("G16").Value
评论
0赞
Luis
11/18/2023
效果很好，非常感谢！还有一个问题，如何粘贴具有特定格式的值？另一个工作簿对不同的工作表具有不同的格式。我只想标准化新工作簿的格式。
0赞
taller
11/18/2023
请澄清 的含义。certain formatting
0赞
Luis
11/18/2023
有些单词是粗体和斜体，其他单词是下划线和蓝色等。
1赞
taller
11/18/2023
这是所有可能的粘贴选项。Microsoft文档：> XlPasteType 枚举 （Excel）
0赞
Tim Williams
11/18/2023
“值用格式和公式粘贴，但我想将它们粘贴为简单的文本”和“如何粘贴具有特定格式的值？”似乎不一致，所以似乎您的实际需求与您问题中的解释不同？
下一个：计算单个单元格中的数字数
评论