Как да преминавам през редове, докато останат празни в колоната на Excel?
Ето една дълга колона с данни, която включва някои празни клетки и искате да преминете през редовете, докато срещнете празна клетка. В Excel няма вградена функция, която да се справи с тази работа, но мога да въведа някои макроси, за да ви направя услуга.
Преминаване през редовете до празни с VBA
Преминаване през редовете до празни с VBA
1. Натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу в празния скрипт.
VBA: Цикъл до празно
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
В кода A1 е първата клетка, от която искате да преминете, можете да я промените според нуждите си.
3. Натиснете F5 , за да започне цикъл на колоната, след което курсорът ще спре при първата срещната празна клетка.
Забележка: Ако искате да преминете през данни, докато срещнете непрекъснати празни клетки, можете да използвате този макро код.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End SubСлед това трябва да изберете първата клетка, от която искате да направите цикъл в Kutools за Excel кликнете върху OK, след което курсорът спира в първите непрекъснати празни клетки.
 |
 |
Комбинирайте лесно няколко листа/работна книга в един единствен лист или работна книга
|
| Комбинирането на множество листове или работни книги в един лист или работна книга може да е досадно в Excel, но с Комбинирам функция в Kutools за Excel, можете да комбинирате обединяване на десетки листове/работни книги в един лист или работна книга, също така можете да консолидирате листовете в един само с няколко кликвания. Щракнете за пълнофункционален 30-дневен безплатен пробен период! |
 |
| Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
