Heim  >  Artikel  >  Software-Tutorial  >  Excel VBA-Schleife durch Spalten

Excel VBA-Schleife durch Spalten

王林
王林nach vorne
2024-01-15 23:24:25667Durchsuche

excel vba列数循环

Excel-VBA-Spaltennummernschleifen-Vlookup

Oh. Habe meinen vorherigen Code überprüft. Es wird geschätzt, dass die Ursache möglicherweise auf Fehler in Ihren iserror- und vlookup-Ergebnissen zurückzuführen ist! ! !

Weil hinter der vlookup-Generierung eine Formel steckt und die für iserror bereitgestellten Parameter falsch sind.

Ich habe es ursprünglich in ein numerisches Format konvertiert und dann iserror angewendet, und dann war alles in Ordnung.

Mein Code lautet wie folgt:

Für i = 2 bis Modulnummer - 1

Range("C" & i).Auswählen: ActiveCell.Value = ActiveCell.Value: If IsError(ActiveCell.Value) Then ActiveCell.Value = 0: Module_wrong = 1: iublink = Cells(ActiveCell.Row, 1): Beenden Sub

Weiter

Sie müssen also nur den Code aufteilen und in numerische Werte umwandeln.

Willkommen in der If Software Changes Life Group. Lassen Sie uns gemeinsam an der Verbesserung der Arbeitseffizienz arbeiten.

VBA-Vlookup-Anwendung

Public Sub aaaa()

Dimmen x als String, w als String

Dim z As Long

x = "Y"

w = "N"

Für z = 2 bis 10000

Wenn Zellen(z, 1) "" Dann

Cells(z, 2).FormulaR1C1 = "=IF(ISNUMBER(SVERWEIS(RC[-1],C[1],1,0)),"""" & x & """",""" " & w & """")"

Cells(z, 2).Value = Cells(z, 2).Value

Ende wenn

Weiter

End Sub

----------------

vlookup gibt einen Fehlerwert zurück, wenn die Daten nicht gefunden werden können und daher nicht direkt verwendet werden können

Wenn Sie vlookup verwenden müssen, sehen Sie sich bitte den folgenden Code an:

------------------------

Public Sub dsadsa()

Dimmen x als String, w als String

Z so lange dimmen, u als Variante

Dim o As Range: Set o = Worksheets("Sheet1").Range("c:c")

x = "Y"

w = "N"

Für z = 2 bis 6

Wenn Zellen(z, 1) "" Dann

Bei Fehler Fortsetzung fortsetzen

u = Application.WorksheetFunction.VLookup(Sheets("sheet1").Cells(z, 1), o, 1, False)

Wenn Err.Number = 0, dann

Zellen(z, 2) = x

Sonst

Zellen(z, 2) = w

Ende wenn

Err.Clear

Ende wenn

Weiter

End Sub

Das obige ist der detaillierte Inhalt vonExcel VBA-Schleife durch Spalten. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen