如何复制粘贴为数值不带公式

pfhbj · 发表于 2024-1-30 09:43

A工作簿复制B工作簿内容，如何只复制粘贴为数值，不要带公式。

Sub Copy通报程序()
Dim BWorkbook As Workbook
Dim AWorksheet As Worksheet

' 打开源工作簿
Set BWorkbook = Workbooks.Open("D:\B.xlsx") ' 修改为实际路径

' 在目标工作表上设置值
With ThisWorkbook.Worksheets("通报")
BWorkbook.Worksheets("普通").Range("a1:b5").Copy .Range("A1")

End With

' 关闭源工作簿，不保存更改
BWorkbook.Close SaveChanges:=False
End Sub

pfhbj · 发表于 2024-1-30 13:03

没人回答？

wengjl · 发表于 2024-1-30 13:04

Sub Macro1()
'
' Macro1 Macro
'

'
Selection.Copy
Sheets("Sheet2").Select

Range("A20").Select
Selection.PasteSpecial Paste:=xlPasteValues ' 粘贴为数值
End Sub

sj15627581616 · 发表于 2024-1-30 13:07

用录制宏手动操作黏贴为值后，再根据自己需求修改代码即可

gwjkkkkk · 发表于 2024-1-30 18:37

可参考3楼，也可用数组。。。

ykcbf1100 · 发表于 2024-1-30 19:39

参与一下。。。

Sub Copy通报程序() '//2024.1.30
Application.ScreenUpdating = False
Set ws = ThisWorkbook
Set sh = ws.Worksheets("通报")
p = ThisWorkbook.Path & ""
f = p & "B.xlsx"
arr = sh.UsedRange
Set wb = Workbooks.Open(f, 0)
With wb.Sheets(1)
.Cells.ClearContents
.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End With
wb.Close 1
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-30 19:40

用数组即可。

附件供参考。。。

ykcbf1100 · 发表于 2024-1-30 19:51

不要太相信AI写的代码，也许是你问得不精准，１楼的代码至少存在二个问题：１、复制B文件的数据带着公式；2、B文件最后并没有保存。

周某人就是我 · 发表于 2024-1-31 06:29

加上.Value2试试。例如Range("A1").Value2

liulang0808 · 发表于 2024-1-31 07:44

BWorkbook.Worksheets("普通").Range("a1:b5").Copy .Range("A1")
修改成
.Range("a1:b5").value=BWorkbook.Worksheets("普通").Range("a1:b5").value
如果还需要保留格式，那么可以两段都要
BWorkbook.Worksheets("普通").Range("a1:b5").Copy .Range("A1")
.Range("a1:b5").value=BWorkbook.Worksheets("普通").Range("a1:b5").value

		自动登录	找回密码
密码			免费注册

[求助] 如何复制粘贴为数值不带公式

评分