Astuces Excel
  1. Astuces Excel
  3. Excel 2007/2010/2013 Erreur d'exécution VBA PasteLa méthode spéciale de la class Range a échoué
Intereting Posts
Compter une list de cellules avec la même couleur de fond Comment désactiver les lignes de quadrature dans Excel en utilisant open xml C #? Si une erreur de déclaration sur la suppression de données d'une colum & PasteSpecial Comment détecter si la colonne contient une valeur ne correspond pas à sa largeur? Excel – VLOOKUP pour returnner chaque résultat dans un tableau, pas seulement le premier vbs pour copyr du text depuis IE vers Excel OpenPyxl accéder à number_format Est-il possible d'insert des boîtes de text / des labels dans un graphique en utilisant vba? Fichier d'ouverture d'avertissement Excel créé avec xlwt: erreur de file comment transférer des données d'un seul file csv / excel vers plusieurs tables oracle VBA à Vlookup deux colonnes supplémentaires en utilisant le code existant. Problème avec la barre d'outils dans Excel 2003 Comment exporter une list python vers un csv et append des sauts de ligne Excel Do While Find Excel VBA SVN Client / Intégration

Excel 2007/2010/2013 Erreur d'exécution VBA PasteLa méthode spéciale de la class Range a échoué

Par la fonction ci-dessous, j'essaie de coller la formule dans les noms de colonne donnés. Le code ci-dessous fonctionne bien, mais lorsque mes données vont jusqu'à 65K lignes, il lance: PasteSpecial Method range class failed error ainsi que je trouve que dans les lignes de 65K lorsque je vais exécuter ci-dessous code, la memory physique utilisera 0 pourrait Est-ce le problème, mais quelqu'un m'aide à échapper ou à surmonter de cette question.

Merci,

Nikunj

Ici, les détails du code:

Paramètres:

  1. FormatRng = contient une gamme de formats contenant de la formule
  2. Gamme DataRng = contais sur laquelle les formules copiées vont être collées
  3. ColArr () = Ce tableau de strings contient des noms de colonnes dans lesquels la formule va être collée 

Public Function CompareFormat(FormatRng As Range, DataRng As Range, ColArr() As Ssortingng) Dim ColIndexArr() As Long Dim i As Long Dim DataColRng As Range Dim FormatColRng As Rangeenter ColIndexArr = getCompColumnsPosition(DataRng, ColArr()) FormatRng.Rows(1).Copy DataRng.Rows(1).PasteSpecial xlPasteFormats, xlPasteSpecialOperationNone, False, False Application.CutCopyMode = False For i = LBound(ColIndexArr) To UBound(ColIndexArr) If ColIndexArr(i) > 0 Then Set DataColRng = Application.Intersect(DataRng.offset(1, 0), _ DataRng.Columns(ColIndexArr(i))) Set FormatColRng = Application.Intersect(FormatRng.offset(1, 0), _ FormatRng.Columns(ColIndexArr(i))) FormatColRng.Copy DataColRng.PasteSpecial xlPasteFormulas Application.CutCopyMode = False End If Next i End Function