Як прокрутити рядки до порожнього місця в стовпці Excel?
Ось довгий стовпець з даними, який включає кілька порожніх комірок, і ви хочете прокрутити рядки до зустрічі з порожньою коміркою. В Excel немає вбудованої функції, яка б могла впоратися з цією роботою, але я можу представити деякі макроси, щоб зробити вам послугу.
Прокручуйте рядки до порожнього місця за допомогою VBA
Прокручуйте рядки до порожнього місця за допомогою VBA
1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліі вставте код нижче в порожній сценарій.
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
У коді А1 - це перша комірка, з якої потрібно виконати цикл, ви можете змінити її, як вам потрібно.
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% та зменшує сотні клацань миші для вас щодня!