Copier et appendez les données dans une plage particulière dans Excel

Si vous connaissez définitivement la plage de «feuille1», je suggérerais de ne pas utiliser de longueur. Vous pouvez sélectionner la plage directement et copier uniquement des valeurs de ces vendeurs.

Sub CopyDatetoSameWorkBook()

Dim rgSource As Range, rgDestination As Range, X As Range

Set rgSource = ThisWorkbook.Worksheets("Sheet1").Range("P25:R28")
Set rgDestination = ThisWorkbook.Worksheets("Sheet2").Range("B63")

rgSource.Copy
rgDestination.PasteSpecial

ActiveWorkbook.Save

MsgBox "Sheet1 Data Has been copied to Sheet2 Tabsheet"

End Sub

J'aime utiliser un Findrow pour le faire. Il fonctionne en trouvant la première ligne vierge, puis le moins 1 représente la ligne ci-dessus (la dernière ligne avec données) afin que vous puissiez devoir modifier la plage en une colonne qui sera toujours complète (comme un identifiant unique)

i Déplacez les données à l'aide de DestinationRange.Value = Sourcerange.Value P>

J'espère que cela a du sens, mais si vous avez des questions sur ce que j'ai fait, faites-le moi savoir! P>

Sub CopyDatetoSameWorkBook()

Dim rgSource As excel.worksheet
dim rgDestination As excel.worksheet
dim X As Range
Dim Length As Long
Dim FindObject as object
Dim LastRow as long

Set rgSource = ThisWorkbook.Worksheets("Sheet1")
Set rgDestination = ThisWorkbook.Worksheets("Sheet2")

'find last row of sheet1
Set FindRow = rgSource.Range("P25:P100000").Find(What:="", LookIn:=xlValues)
LastRow = FindRow.Row - 1

'move the data from sheet1 to sheet2
rgDestination.range("B63:K" & lastrow + 62).value = rgSource.range("P25:Y" & LastRow).value

'Set rgSource = ThisWorkbook.Worksheets("Sheet1").Range("Z25:AG" & Length)
Set rgDestination = ThisWorkbook.Worksheets("Sheet2").Range("N63")

'find last row of sheet1
Set FindRow = rgSource.Range("Z25:Z100000").Find(What:="", LookIn:=xlValues)
LastRow = FindRow.Row - 1

'move the data from sheet1 to sheet2
rgDestination.range("N63:U" & sourcelastrow + 62).value = rgSource.range("Z25:AG" & LastRow).value

ActiveWorkbook.Save

MsgBox "Sheet1 Data Has been copied to Sheet2 Tabsheet"

End Sub

Excusez-moi, je suis sous immense cruauté où je travaille actuellement et essaye de vous écrire. Mais je l'ai de travailler exactement comment vous décrivez.

Le dernier truc était de comprendre un moyen d'exciter Excel de coller dans la rangée 63 d'abord au lieu de la rangée 1 ou de la rangée 2 (ou ailleurs comme il l'a parfois fait). Je cherchais un moyen de tromper Excel dans le traitement de la rangée 63 comme rangée 1 ou rangée 2 (sous l'en-tête) mais il ne semble pas y avoir.

J'avais le colle continu sans Erreurs, mais la définition de la ligne 63 en première instance me conduisait coincée. Cela a bien fonctionné de la rangée 1 ou 2 et de l'allusion elle-même, voire de n'importe où ailleurs, mais ne pouvait pas comprendre une solution adaptable dynamique pour la ligne de départ.

un tour que j'ai réalisé est juste pour vérifier si la feuille2 est vide ou non. Et pour diviser le colle par cette condition: pour vérifier si la feuille2 est vide ou non. Pour cela, je vérifie si B63 (ou similaire) a déjà des données dans ou non (vierge ou isempty ). C'était c'était.

Je pensais qu'il y avait un test Easy Isblank pour une feuille d'Excel, ce qui serait plus facile (et il a trié rapidement aucun problème), mais encore une fois, il n'y a pas. Ne semble pas être. La meilleure et la plus proche alternative est de vérifier si la cellule B63 est vide ou non, ou adaptez l'une de ces fonctions et des boucles à vos besoins ici , ici , ici et ici. comme ive a également fait.

Alors maintenant tout le processus que vous voulez fonctionner comme vous le souhaitez. J'ai testé de nombreuses fois, avec des données modifiées de la feuille et de la course, de la croissance et de la modification des données de table des tableaux à coller et de courir encore et encore pour vous assurer qu'il fonctionne. etc, etc. Il construit / développe votre table d'insertion dans la feuille 2 de la ligne 63 vers l'envers sans tracas. Cela fonctionne à un tee-shirt.

Aussi avant, je devais changer vos dernières lignes, car elle ne sélectionnerait pas correctement les données de la feuille1. (xlcelltypelastcell) .row fonctionne bien mieux.

Ça fonctionne comme vous le souhaitez.

J'ai aussi fait une version avec si application .Worksheetfunction.Counta ("B63: S64") = 0 ALORS Ce qui fonctionne mieux pour vérifier si une plage est vide et décide où ou ne pas coller les données. Counta TESTS Si la plage B63: ... Où que vous souhaitiez, ait ou n'a rien eu quelque chose, et des pâtes de la feuille1 Date dans la feuille2 de Row63 si vrai, ou ajoute à la fin du dernier rangée remplie de feuille2 sinon. xxx

Vous pouvez remplacer les conditions IF, si Isempty (plage ("B63"). Valeur) = true Ensuite et si Isempty (plage ("N63"). Valeur) = true, alors , avec:

Si Isempty (plage («B63»). Valeur) = true alors

et

Si Isempty (plage ("N63"). Valeur) = true

pour une vérification plus robuste.

Veuillez le tester et laissez-moi savoir si vous avez besoin de quelque chose de plus ou que vous avez des problèmes avec cela.

(excuses pour le Enfant très précipité comme un message à vous.)

Voici mes coups d'écran et travailler pour vous montrer que cela fonctionne.