首页 文章

复制并粘贴活动列而不更改单元格格式

提问于
浏览
0

此代码可帮助我在值中复制和粘贴活动列,但数字将粘贴两位小数 . 我正在使用此代码,因为我的工作表内部合并了单元格,并且列中的某些单元格也有日期 .

ActiveCell.Offset(0, 0).EntireColumn.Value = ActiveCell.EntireColumn.Value

我需要将列精确地粘贴到列具有格式的格式中 . 保留不带小数的数字 .

注意:如果通过选择列然后从主页栏中选择粘贴值来手动执行此操作,则会将其与公式完全相同 .

1 回答

  • 2

    试试这种方式:

    Dim r As Long
    c = Selection.Column
    
    Range(Cells(4, c + 1), Cells(5, c + 1)).Merge
    Columns(c).EntireColumn.Copy
    Columns(c + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Application.CutCopyMode = False
    

    您可能需要调整一些内容,例如合并某些单元格,您希望粘贴的单元格与复制的单元格相关联 . 让我知道这是如何工作的

相关问题