Как да изберете диапазон въз основа на стойността на клетка в друга колона в Excel?
В тази статия ще говоря за това как да избирам диапазони въз основа на стойността на клетка в друга колона. Вземете пример, ако клетките показват FALSE в колона C, относителните клетки в колона A и колона B ще бъдат избрани, както е показано на екранната снимка по-долу. Няма вградена функция, която да ви помогне да решите тази задача, но в тази статия мога да се справя с нея с VBA код.
Изберете диапазон въз основа на стойността на клетка в друга колона чрез VBA код
Изберете диапазон въз основа на стойността на клетка в друга колона чрез VBA код
Изберете диапазон въз основа на стойността на клетка в друга колона чрез VBA код
1. Активирайте листа, който искате да използвате, и натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии след това поставете кода по-долу в новия Модули прозорец.
VBA: Изберете диапазон въз основа на стойността на клетката
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. Натиснете F5 ключ за стартиране на VBA и след това диапазоните са избрани въз основа на стойностите в колона C.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!