用VBA编写复制功能，能不能只粘贴值，不粘贴格式

Question

如题所述

Answer 1

自己录制一个宏，然后改改就可以了埃 Sub Pspec() For i = 1 To 10 Sheets(i).Activate Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.Cu...

Answer 2

将Sheet1中A1单元格的当前区域的值  粘贴到 sheet2的代码

Sub test()
Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecialPaste:=xlPasteValues
Application.CutCopyMode = False
End Sub

本回答被网友采纳

Answer 3

Sub aa() Dim x If Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a1").Value = "" Then x = 1 ElseIf Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a...