復制和粘貼活動列而不更改單元格格式

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

您可能需要調整一些內容，例如合並某些單元格，您希望將單元格粘貼到與復制的單元格相關的位置。 讓我知道這是如何工作的