Astuces Excel
  1. Astuces Excel
  3. vba find last row et copyz toutes datatables ci-dessus dans la colonne A
Intereting Posts
Besoin d'aide pour extraire du text d'une URL Comment puis-je supprimer les lignes A2 sauf une colonne K? Triage du tableau de pivotement Excel à l'aide de plusieurs champs et sans regroupement Comment supprimer le mot de passe Excel oublié pour ouvrir le file? La meilleure façon de filterr et de find des valeurs uniques deux fois en vba? Réglage automatique lorsque vous tapez dans la list déroulante dans Excel où la list est remplie à l'aide de VBA Est-il possible d'utiliser MS Excel comme interface avant et arrière pour MS Access? Utilisation de l'object d'une instruction `With` comme paramètre pour un appel de procédure Quel est le type MIME correct pour un file CSV créé par Excel avec un point-virgule comme séparateur Excel VBA find # N / A Produire une masortingce en utilisant les fonctions INDEX et MATCH Masortingce de return de la fonction INDEX? Comment afficher une valeur spécifique dans une cellule Excel à partir d'une autre feuille de calcul par association Extrait de données de SQL Server Management Studio avec des tabs CellStyle est appliqué uniquement lors de la modification de la cellule

vba find last row et copyz toutes datatables ci-dessus dans la colonne A

Je me suis rendu en rond avec ce que j'ai cherché et il y a beaucoup de choses similaires à ce que je veux faire, mais rien d'exact. Mes données existent dans la colonne A, je dois pouvoir find la dernière ligne de la colonne A, copyr toutes datatables ci-dessus (y compris la dernière ligne) et coller dans une nouvelle feuille dans un nouveau classur. Toute aide serait très appréciée. 

Selects appropriate worksheet - Non-MyPayFINAL Sheets("Non-MyPay FINAL").Select 'Selects all data in column A and copys to clipboard Range("A1", Range("A1").End(xlDown)).Select Selection.Copy 'Add a new workbook Workbooks.Add 'Paste selected values from previous sheet Selection.PasteSpecial Paste:=xlPasteValues 'Build SaveAs file name (for CSV file) MySaveFile = Format(Now(), "DDMMYYYY") & "NonMyPayFINAL" & ".CSV" 'Save template file as...(for CSV file) ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment Limited\" & MySaveFile), FileFormat:=xlCSV 'Build SaveAs file name (for Txt file) MySaveFile = Format(Now(), "DDMMYYYY") & "NonMyPayFINAL" & ".Txt" 'Save template file as...(for Txt file) ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment Limited\" & MySaveFile), FileFormat:=xlTextWindows

Pour copyr toute la colonne A de la feuille "CopyFromThisOne" vers un nouveau classur vide: 

 Sub CopyWholeColumnA() Dim wb as Workbook Set wb = Workbooks.Add With ThisWorkbook.Worksheets("CopyFromThisOne") .Range("A:A").Copy wb.Worksheets(1).Range("A1") End with End Sub

Pour copyr la ligne 1 vers la dernière rangée occupée dans une gamme continue dans un nouveau classur: 

 Sub CopyColumnAOccupied() Dim lastrow as integer Dim wb as workbook Set wb = Workbooks.add With ThisWorkbook.Worksheets("CopyFromThisOne") lastrow = .Range("A1").End(xlDown).Row .Range("A1:A" & lastrow).Copy wb.Worksheets(1).Range("A1") End With End Sub

Bien que, selon votre question (nouvelle feuille de calcul dans un nouveau classur), je dirais qu'il n'est pas nécessaire de find une ligne et que vous pouvez simplement copyr la colonne complète.