Astuces Excel
  1. Astuces Excel
  3. Comment puis-je copyr et coller en utilisant des variables de plage à partir de deux feuilles?
Intereting Posts
Laissez Excel Solver opérer avec des nombres naturels Concaténer le path et le nom du file récursivement Renvoyez le jeu de données comme Excel Excel – Essayer d'get un numéro de "fréquence" pour un tableau Définir les variables dans les formules excel? Lock Cell in Excel VBA Comptez les nombres de lignes de files CSV qui ont été importés avec succès sans countr les en-têtes excel vba – affectation d'une valeur de cellule spesifiée à une variable Visio récipient automatique à partir de lignes Fournissez deux arguments, obtenez une valeur de la ligne qui a ces deux valeurs L'ajout Excel n'est pas activé Valeurs uniques basées sur des filters Fonction Excel pour find "profondeur" d'expression de string? Besoin d'aide pour verrouiller une gamme sélectionnée de cellules en utilisant VBA Remplir automatiquement plusieurs cellules avec des détails basés sur un code client

Comment puis-je copyr et coller en utilisant des variables de plage à partir de deux feuilles?

J'essaie de copyr des données d'une feuille dans un classur vers une autre (noms "Sheet1" et "Clean Data"). rRow est la gamme source dans Sheet1, tandis que rPaste est l'location dans lequel je souhaite copyr "Clean Data". Tout d'abord, la nouvelle ligne devrait avoir les variables sSkillset et sDate, qui fonctionne actuellement correctement, mais il devrait append toute la rangée de données de rRow. Je ne peux pas find un moyen de le faire sans générer une incompatibilité ou une erreur d'object. 

rPaste.Value = sSkillset Set rPaste = rPaste.Offset(0, 1) rPaste.Value = sDate Set rPaste = rPaste.Offset(0, 1) For Each rCell In rRow 'Copy rCell contents to rPaste Set rPaste = rPaste.Offset(0, 1) Next rCell Set rPaste = rPaste.Offset(1, -14) 'I need a line so that next time rPaste is called, it is ready at column A of the next row

La sortie devrait être dans une rangée: [sSkillset] [sDate] [rRowCell1] [rRowCell2] …..

Je vous remercie! 

 rPaste.Value = sSkillset rPaste.Offset(0, 1).Value = sDate rPaste.Offset(0, 2).Resize(1, rRow.Columns.Count).Value = rRow.Value Set rPaste = rPaste.Offset(1, 0)