Maison >tutoriels informatiques >connaissances en informatique >À l'aide de VBA, écrivez des données dans la dernière ligne et la première colonne d'un autre fichier Excel

À l'aide de VBA, écrivez des données dans la dernière ligne et la première colonne d'un autre fichier Excel

王林
王林avant
2024-01-24 10:00:08856parcourir

À laide de VBA, écrivez des données dans la dernière ligne et la première colonne dun autre fichier Excel

vba écrit les données dans la dernière ligne de la première colonne dans un autre fichier xls

Dans le A.XLSX ouvert, copiez C3 et collez-le dans la cellule de la première colonne et de la dernière ligne de B. La procédure est la suivante :

Sous macro1()

Plage ("C3"). Sélectionnez 'Sélectionner C3

Sélection.Copier 'Copier

Windows("B.xlsx").Activez « Sélectionner le classeur B.XLSX

lastrow = Cells(Rows.Count, 1).End(3).Row 'Trouver la dernière ligne de la première colonne

Cells(lastrow, 1).Sélectionnez "Sélectionner les cellules de la dernière ligne de la première colonne

ActiveSheet.Paste 'Coller

cells(1,1)=Cells(lastrow, 3) 'Lisez la valeur dans la troisième colonne de la ligne actuelle et écrivez-la dans la première cellule du tableau xls actuel

Windows("A.xlsx").Activez 'Retour à XLSX

Fin du sous-marin

Comment obtenir la dernière colonne de la première ligne dans Excel en utilisant VBA

Sous Test004()

Dim CoLumn_Num comme chaîne

Dim Num As Long

Num = Range("IV1").End(xlToLeft).Column

Si Num

CoLumn_Num = Chr(64 + Num)

ElseIf Num Mod 26 = 0 Then

CoLumn_Num = Chr(63 + Num 26) & Chr(90)

Autre

CoLumn_Num = Chr(64 + Num 26) & Chr(64 + (Num) Mod 26)

Fin si

MsgBox "Première ligne et dernière colonne :" & CoLumn_Num & "Colonne"

Fin du sous-marin

A été testé, n'hésitez pas à l'utiliser

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer