Copiez et collez la colonne active sans changer les formats de cellules

Ce code m'aide à copyr et coller la colonne active dans les valeurs, mais les numbers sont collés avec deux décimales. J'utilise ce code parce que ma feuille a fusionné des cellules à l'intérieur et que certaines cellules de la colonne ont des dates.

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

J'ai besoin de coller la colonne en valeurs exactement dans le format que la colonne a le format. Laissez les numbers sans les décimales.

Remarque: si vous le faites manuellement en sélectionnant la colonne, puis en sélectionnant coller dans les valeurs de la barre d'accueil, elle la colle exactement comme elle l'était avec les formules.

• Objet Msgbox dans une cellule
• Tableau + Erreur 9 (Abonné hors de scope)
• Supprimer les colonnes en fonction de la valeur d'en-tête VBA
• C # Passer datatables de Excel vers Datagrid dans l'application Web ASP.NET
• Sélection de toutes les lignes avec le même numéro d'identification, puis itération – VBA

• Excel définissant la gamme dans plus de 100 tabs de feuilles, supprime les duplicates dans la colonne pour plus de 100 feuilles
• Powershell Excel – Copier à partir de la gamme nommée
• L'utilisation de «If» dans une formule excel est-elle mauvaise pour la performance?
• Extraire la sous-string en fonction de différents critères et placer la string extraite dans une autre cellule de la même rangée
• Ecriture de la feuille excel avec LinkedHashmap à l'aide de POI Java

 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