Heim > Artikel > Software-Tutorial > Excel VBA-Schleife durch Spalten
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.
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!