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

Question

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

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

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

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

Answer 1

以这种方式尝试：

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

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