Auswahl von nicht-leeren Zellen in Excel mit VBA

Ich bin erst am Anfang, Tauchen Sie ein in VBA und den ich getroffen habe, ein bisschen von einer Straßensperre.

Habe ich eine Platte mit 50+ - Spalten, 900+ Zeilen von Daten. Muss ich neu formatieren, etwa 10 Spalten und kleben Sie diese in eine neue Arbeitsmappe.

Wie kann ich programmgesteuert auswählen jedes nicht-leere Zelle in einer Spalte von Mappe1, führen Sie es durch einige Funktionen, und legen Sie die Ergebnisse in Mappe2?

Welches Programm benutzt du: Excel oder Access? Ihre Frage-Titel schon sagt Excel, aber deine tags sagen-Zugang.
Definitiv Excel, vielen Dank für den Hinweis. Dies ist der Grund, warum Sie nicht tag in Eile.

InformationsquelleAutor Tyler Rash | 2009-05-04

  1. 5

    Den folgenden VBA-code sollte Ihnen den Einstieg. Es wird kopieren Sie alle Daten in der ursprünglichen Arbeitsmappe in eine neue Arbeitsmappe, aber es wird schon addiert 1 zu jedem Wert, und alle leeren Zellen ignoriert worden.

    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
    Wenn ich versuche diesen code auszuführen, bekomme ich eine message box sagen, "Objekt erforderlich."

    InformationsquelleAutor e.James

  2. 14

    Ich weiß ich bin sehr spät, aber hier einige nützliche Beispiele: 

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

    oder

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

    Finden Sie die Letzte verwendete Zeile in der Spalte, verlassen Sie sich niemals auf LastCell, die unzuverlässig ist (es wird nicht zurückgesetzt, nach dem löschen von Daten). Stattdessen verwende ich etwas wie 

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

    InformationsquelleAutor Patrick Honorez

  3. 2

    Wenn Sie auf der Suche für die Letzte Zeile einer Spalte verwenden:

    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

    Andere Befehle, die Sie brauchen, um mit vertraut sind die Befehle kopieren und einfügen:

    Sub CopyOneToTwo()
    SelectEntireColumn (1)
    Selection.Copy

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

    Schließlich können Sie auf Tabellenblätter in andere Arbeitsmappen mithilfe der folgenden syntax:

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

    InformationsquelleAutor Jason Williams

  4. -1

    Könnte dies völlig off base, aber können Sie nicht einfach kopieren Sie die gesamte Spalte in eine neue Tabelle und dann Sortieren Sie die Spalte? Ich gehe davon aus, dass Sie nicht brauchen, um zu pflegen, um Integrität.

    Das ist völlig off base.

    InformationsquelleAutor Dayton Brown

Schreibe einen Kommentar