Cum să selectați intervalul pe baza valorii celulei dintr-o altă coloană din Excel?
În acest articol, voi vorbi despre cum să selectați intervale pe baza valorii celulei într-o altă coloană. Luați un exemplu, dacă celulele afișează FALS în coloana C, celulele relative din coloana A și coloana B vor fi selectate așa cum este prezentat mai jos. Nu există nicio funcție încorporată care să vă ajute să rezolvați această sarcină, dar în acest articol, o pot gestiona cu un cod VBA.
Selectați intervalul pe baza valorii celulei dintr-o altă coloană după codul VBA
Selectați intervalul pe baza valorii celulei dintr-o altă coloană după codul VBA
Selectați intervalul pe baza valorii celulei dintr-o altă coloană după codul VBA
1. Activați foaia pe care doriți să o utilizați și apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și apoi lipiți codul de mai jos în noul Module fereastră.
VBA: Selectați intervalul pe baza valorii celulei
Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
Dim lastrow As Long
Dim xRg As Range, yRg As Range
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet2")
lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("C1:C" & lastrow)
If UCase(xRg.Text) = "FALSE" Then
If yRg Is Nothing Then
Set yRg = .Range("A" & xRg.Row).Resize(, 2)
Else
Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
End If
End If
Next xRg
Application.ScreenUpdating = True
End With
If Not yRg Is Nothing Then yRg.Select
End Sub
3. presa F5 tasta pentru a rula VBA, iar apoi intervalele au fost selectate pe baza valorilor din coloana C.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!