Comment choisissez-vous la totalité de la feuille excel avec Plage à l'aide de la Macro en VBA?

J'ai trouvé une solution similaire à cette question en c#...
Voir le lien ci-dessous

Comment Sélectionner toutes les cellules dans une feuille de calcul Excel.Objet Range de c#?

Quelqu'un aurait-il un extrait de le faire en VBA? Je ne suis pas vraiment familier avec VBA, donc ce serait utile. Voici ce que j'ai eu jusqu'à présent...

Je sélectionne les données normalement en utilisant les touches "ctrl+maj plus de flèche, flèche vers le bas" pour sélectionner l'intégralité d'une plage de cellules. Lorsque je l'exécute dans une macro-il des codes de sortie A1:Q398247930, par exemple. J'ai besoin d'être

.SetRange Range("A1:whenever I run out of rows and columns")

C'est très simple, et j'ai facilement pu le faire moi-même sans une macro, mais je suis en train de rendre l'ensemble du processus d'une macro, et c'est juste un morceau de lui.

Sub sort()
    'sort Macro
    Range("B2").Select
    ActiveWorkbook.Worksheets("Master").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Master").sort.SortFields.Add Key:=Range("B2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Master").sort
        .SetRange Range("A1:whenever I run out of rows and columns")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

edit:
Il y a d'autres parties où je pourrais avoir besoin d'utiliser le même code, mais la gamme est de dire "C3:la Fin de lignes & colonnes". Est-il possible en VBA pour obtenir l'emplacement de la dernière cellule dans le document?

Merci!

InformationsquelleAutor C. Tewalt | 2013-07-30

26

Je crois que vous le souhaitez à trouver l'actuelle région de A1 et les cellules environnantes - pas nécessairement toutes les cellules de la feuille.
Si oui: il suffit d'utiliser...
Range("A1").CurrentRegion
- Bon point 🙂 j'ai oublié CurrentRegion
- Fait intéressant, si vous venez de copier une feuille de calcul dans un nouveau classeur, Range("A1").CurrentRegion.Adresse renvoie "A1", de ne pas l'utilisé de la région sur la feuille de calcul. J'ai eu à utiliser chancea de la méthode de Gamme(les Cellules.Adresse), à la place.
InformationsquelleAutor ExcelExpert
19

Vous pouvez simplement utiliser cells.select pour sélectionner tous cellules dans la feuille de calcul. Vous pouvez obtenir une adresse valide en disant Range(Cells.Address).

Si vous voulez trouver le dernier Used Range où vous avez fait quelques modification de mise en forme ou saisissez une valeur dans vous pouvez appeler ActiveSheet.UsedRange et sélectionnez-le à partir de là. Hope qui aide
- Vous n'avez même pas besoin Cells.Select si vous voulez juste la plage. Cells seul vous donnera la gamme.
- Bien que s'est écrasé mon classeur, lol, j'attends qu'il a travaillé et a été juste ridiculement forte intensité de ressources. Enregistrer avant la course!
InformationsquelleAutor chancea
8

vous pouvez utiliser toutes les cellules comme un objet comme celui-ci :
```
Dim x as Range
Set x = Worksheets("Sheet name").Cells
```
X est maintenant un objet range qui contient l'intégralité de la feuille de calcul

InformationsquelleAutor user4791681
5

vous avez quelques options ici:
1. À l'aide de la UsedRange propriété
2. trouver la dernière ligne et la colonne utilisée
3. utiliser un imitateur de décalage vers le bas et de décalage à droite
Personnellement, j'utilise la Plage Utilisée et de trouver la dernière ligne et de colonne de la méthode, la plupart du temps.

Voici comment vous le feriez à l'aide de la UsedRange propriété:
```
Sheets("Sheet_Name").UsedRange.Select
```
Cette instruction permet de sélectionner tous utilisé est comprise dans la feuille de calcul, remarque que, parfois, cela ne fonctionne pas très bien, si vous supprimez des colonnes et des lignes.

L'alternative est de trouver la dernière cellule utilisée dans la feuille de calcul
```
Dim rngTemp As Range
Set rngTemp = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not rngTemp Is Nothing Then
    Range(Cells(1, 1), rngTemp).Select
End If
```
Ce que ce code est en train de faire:
1. Trouver la dernière cellule contenant une valeur
2. sélectionnez la cellule(1,1) tout le chemin à la dernière cellule
- salut, oui cela va attraper les cellules dernier utilisé n'importe comment beaucoup de lignes vides vous avez entre =]
- Devrait être Dim rngTemp As Range
InformationsquelleAutor Derek Cheng
1

Je recommande l'enregistrement d'une macro, comme trouvé dans ce post;

Excel macro VBA pour filtrer les enregistrements

Mais si vous êtes à la recherche pour trouver la fin de vos données et non pas la fin du classeur nécessaire, si il n'y a pas de cellules vides entre le début et la fin de vos données, j'ai souvent utiliser quelque chose comme cela;
```
R = 1
Do While Not IsEmpty(Sheets("Sheet1").Cells(R, 1))
    R = R + 1
Loop
Range("A5:A" & R).Select 'This will give you a specific selection
```
Vous êtes de gauche avec R = le numéro de la ligne au bout de vos données se termine. Cela pourrait être utilisé pour la colonne en tant que bien, et puis vous pouvez utiliser quelque chose comme les Cellules(C , R).Sélectionnez, si vous faite C la colonne de la représentation.
- Mêmes précisions que j'ai demandé à Derek. Serait-il attraper le cas où j'ai une ligne vide entre la dernière rangée?
- Non, ce serait s'arrêter quand il a obtenu à une cellule vide.
InformationsquelleAutor MakeCents

Voici ce que j'ai utilisé, je sais qu'il pourrait utiliser un peu de perfectionner, mais je pense que ça va aider les autres...

''STYLING''

Dim sheet As Range

' Find Number of rows used
Dim Final As Variant
    Final = Range("A1").End(xlDown).Row

' Find Last Column
Dim lCol As Long
    lCol = Cells(1, Columns.Count).End(xlToLeft).Column

Set sheet = ActiveWorkbook.ActiveSheet.Range("A" & Final & "", Cells(1, lCol ))
With sheet
    .Interior.ColorIndex = 1
End With

InformationsquelleAutor FreeSoftwareServers

0

Peut-être que cela peut fonctionner:

Sh.Range("A1", Sh.Range("A" & les Lignes.Le comte).End(xlUp))

InformationsquelleAutor Sarah
0

Se référant à la première question, je suis à la recherche dans le même.
Le résultat que j'obtiens, l'enregistrement d'une macro, est, en commençant par la sélection de la cellule A76:
```
Sub find_last_row()
    Range("A76").Select
    Range(Selection, Selection.End(xlDown)).Select
End Sub
```
InformationsquelleAutor Pavlin Todorov

Sub SelectAllCellsInSheet(SheetName As String)
    lastCol = Sheets(SheetName).Range("a1").End(xlToRight).Column
    Lastrow = Sheets(SheetName).Cells(1, 1).End(xlDown).Row
    Sheets(SheetName).Range("A1", Sheets(SheetName).Cells(Lastrow, lastCol)).Select
End Sub

À utiliser avec ActiveSheet:

Call SelectAllCellsInSheet(ActiveSheet.Name)

InformationsquelleAutor Yehia Amer

0

Une autre façon de sélectionner toutes les cellules à l'intérieur d'une gamme, tant que les données sont contiguës, est d'utiliser Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select.

InformationsquelleAutor Bob the Builder
0

J'ai trouvé que la Feuille de calcul ".UsedRange" la méthode est supérieure dans de nombreux cas à résoudre ce problème.
J'ai lutté avec une troncature problème qui est un comportement normal de l' ".CurrentRegion" la méthode. À L'Aide De [ Worksheets("Feuil1").Range("A1").CurrentRegion ] ne donne pas les résultats que j'ai souhaité lorsque la feuille de calcul se compose d'une colonne avec des espaces vides dans les lignes (et les blancs sont recherchés). Dans ce cas, l' ".CurrentRegion" tronque sur le premier enregistrement. J'ai mis en place un travail autour de mais récemment trouvé un encore mieux; voir code ci-dessous qui permet de copier l'ensemble d'une autre feuille ou pour identifier l'adresse réelle (ou simplement des lignes et des colonnes):
```
Sub mytest_GetAllUsedCells_in_Worksheet()
    Dim myRange

    Set myRange = Worksheets("Sheet1").UsedRange
    'Alternative code:  set myRange = activesheet.UsedRange

   'use msgbox or debug.print to show the address range and counts
   MsgBox myRange.Address      
   MsgBox myRange.Columns.Count
   MsgBox myRange.Rows.Count

  'Copy the Range of data to another sheet
  'Note: contains all the cells with that are non-empty
   myRange.Copy (Worksheets("Sheet2").Range("A1"))
   'Note:  transfers all cells starting at "A1" location.  
   '       You can transfer to another area of the 2nd sheet
   '       by using an alternate starting location like "C5".

End Sub
```
InformationsquelleAutor Lifygen

Vous devez vous connecter pour publier un commentaire.