/ / VBA Excel, loop gennem en kolonne og skjul kolonne hvis celler indeholder substrings - excel, vba

VBA Excel, loop gennem en kolonne og skjul kolonne, hvis celler indeholder substrings - excel, vba

Jeg forsøger at sløjfe over en kolonne, jeg specificerer, og hvis en af ​​cellerne i den kolonne indeholder en substring, hvis skjul rækken der er cellen placeret.

Dette:

A       B
aaaccc  456
adzass  46
ddamdd  784
sdadaz  789

ville blive sådan:

A       B
aaaccc  456
ddamdd  784

Dette er min kode hidtil:

 Dim N As Long, i As Long
N = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To N
If Cells(i, "B") Like "*KB*" Or Cells(i, "B") Like "*KZ*" Then
"" MsgBox Cells(i, "B").Value
Cells(i, "B").Row.Hidden
End If
Next i

Jeg antog, at jeg kunne få rækken af ​​cellerne ved at gøre Cells(i, "B").Row men det synes ikke at returnere det.

svar:

0 for svar № 1
Dim N As Long, i As Long
N = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To N
If Cells(i, "A") Like "*z*" Then "changed criteria
"MsgBox Cells(i, "A").Value
Rows(i).Hidden = True "Use Rows(rowindex) to get the row object
End If
Next i

Ovennævnte kode skal gøre tricket.

Et par ting:

  • Din hvis erklæring passer ikke til nogen af ​​de rækker, du vil skjule, så jeg har ændret det lidt.
  • Celler (jeg, "B"). Række giver dig rækken indeks, ikke selve rækken objekt
  • .Hidden er en ejendom, du skal indstille den til sand eller falsk. Derfor: Rækker (i). Skjult = Ægte

Beslægtede spørgsmål


Kommentarer (0)

Tilføj en kommentar