时间戳

首页 > 解决方案 > 粘贴但保留目标格式

excel - 粘贴但保留目标格式

问题描述

嗨，新手，但请记住你曾经也是。我有麻烦继承我的代码，但是当我希望它像工作表 2 文本和单元格格式时，它保持工作表 1 文本格式

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

标签： excelvba

解决方案

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

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

推荐阅读