La sélection de la non-vide de cellules dans Excel avec VBA

Je suis seulement au début de la plongée en VBA et j'ai touché un peu à un barrage routier.

J'ai une feuille avec 50+ colonnes, plus de 900 lignes de données. J'ai besoin de reformater environ 10 de ces colonnes et de les coller dans un nouveau classeur.

Comment puis-je sélectionner par programme tous les non-vide de la cellule dans une colonne de classeur1, le lancer à travers certaines fonctions, et de déposer les résultats dans livre2?

Quel programme utilisez-vous: Excel ou Access? Votre question titre l'indique Excel, mais vos balises dire l'Accès.
Certainement Excel, merci pour cette remarque. C'est pourquoi vous n'avez pas de balise dans une hâte.

OriginalL'auteur Tyler Rash | 2009-05-04

  1. 5

    Le code VBA suivant devrait vous obtenir a commencé. Il permet de copier toutes les données dans le classeur d'origine vers un nouveau classeur, mais elle aura ajouté 1 pour chaque valeur, et toutes les cellules vides auront été ignoré.

    Option Explicit

Public Sub exportDataToNewBook()
    Dim rowIndex As Integer
    Dim colIndex As Integer
    Dim dataRange As Range
    Dim thisBook As Workbook
    Dim newBook As Workbook
    Dim newRow As Integer
    Dim temp

    '//set your data range here
    Set dataRange = Sheet1.Range("A1:B100")

    '//create a new workbook
    Set newBook = Excel.Workbooks.Add

    '//loop through the data in book1, one column at a time
    For colIndex = 1 To dataRange.Columns.Count
        newRow = 0
        For rowIndex = 1 To dataRange.Rows.Count
            With dataRange.Cells(rowIndex, colIndex)

            '//ignore empty cells
            If .value <> "" Then
                newRow = newRow + 1
                temp = doSomethingWith(.value)
                newBook.ActiveSheet.Cells(newRow, colIndex).value = temp
                End If

            End With
        Next rowIndex
    Next colIndex
End Sub

    Private Function doSomethingWith(aValue)

    '//This is where you would compute a different value
    '//for use in the new workbook
    '//In this example, I simply add one to it.
    aValue = aValue + 1

    doSomethingWith = aValue
End Function
    Lorsque j'essaie d'exécuter ce code, j'obtiens un message indiquant "Objet requis."

    OriginalL'auteur e.James

  2. 14

    Je sais je suis très en retard sur ce sujet, mais voici quelques utiles échantillons: 

    'select the used cells in column 3 of worksheet wks
wks.columns(3).SpecialCells(xlCellTypeConstants).Select

    ou

    'change all formulas in col 3 to values
with sheet1.columns(3).SpecialCells(xlCellTypeFormulas)
    .value = .value
end with

    Pour trouver la dernière ligne de la colonne, ne jamais compter sur LastCell, ce qui n'est pas fiable (il n'est pas réinitialisé après la suppression de données). Au lieu de cela, j'utilise un truc comme 

     lngLast = cells(rows.count,3).end(xlUp).row

    OriginalL'auteur Patrick Honorez

  3. 2

    Si vous êtes à la recherche pour la dernière ligne d'une colonne, utilisez:

    Sub SelectFirstColumn()
   SelectEntireColumn (1)
End Sub

Sub SelectSecondColumn()
    SelectEntireColumn (2)
End Sub

Sub SelectEntireColumn(columnNumber)
    Dim LastRow
    Sheets("sheet1").Select
    LastRow = ActiveSheet.Columns(columnNumber).SpecialCells(xlLastCell).Row

    ActiveSheet.Range(Cells(1, columnNumber), Cells(LastRow, columnNumber)).Select
End Sub

    D'autres commandes, vous aurez besoin de se familiariser avec les commandes copier et coller:

    Sub CopyOneToTwo()
    SelectEntireColumn (1)
    Selection.Copy

    Sheets("sheet1").Select
    ActiveSheet.Range("B1").PasteSpecial Paste:=xlPasteValues
End Sub

    Enfin, vous pouvez faire référence à des feuilles de calcul dans d'autres classeurs à l'aide de la syntaxe suivante:

    Dim book2
Set book2 = Workbooks.Open("C:\book2.xls")
book2.Worksheets("sheet1")

    OriginalL'auteur Jason Williams

  4. -1

    Cela peut être complètement hors de la base, mais ne pouvez-vous pas juste de copier l'ensemble de la colonne dans une feuille de calcul, puis trier la colonne? Je suis en supposant que vous n'avez pas besoin de maintenir l'ordre à l'intégrité.

    C'est complètement hors de la base.

    OriginalL'auteur Dayton Brown