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
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!