Question

您好，这里的新手，但请记住您曾经也是。我在这里遇到问题时遇到了麻烦，但是当我希望它像表格2的文本和单元格格式一样时，它保持表格1的文本格式

Private Sub CommandButton1_Click()
Sheets("sheet1").Range("A1:A4").SpecialCells(xlConstants).copy 
Sheets("sheet2").Range("A1:A4").End(xlUp)
End Sub

Answer 1

您正在寻找的是PasteSpecial-这是他清理过的代码：

Private Sub CommandButton1_Click()

    Sheets("Sheet1").Range("A1:A4").Copy
    Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Answer 2

如果是这样，请不要使用副本，而是将值设置为目标：

Sub Copy()
    Dim k As Range
    Set k = Range("Sheet1!A1:A4")
    Range("Sheet2!A1:A4").Value = k.Value
End Sub

粘贴但保留目标格式

2 个答案: