Мундариҷа
Тартиб додани мушкилот
Мо як қатор ячейкаҳое дорем, ки дорои маълумоте ҳастанд, ки ҳуҷайраҳои холӣ доранд:
Вазифа аз он иборат аст, ки ячейкаҳои холӣ хориҷ карда, танҳо ҳуҷайраҳои дорои маълумот боқӣ монад.
Усули 1. Ноҳамвор ва зуд
- Интихоби диапазони аслӣ
- Тугмаро пахш кунед F5, тугмаи навбатӣ Равшансозӣ (Махсус). Дар равзанаи кушодашуда, интихоб кунед Ҳуҷайраҳои холӣ(Бланкаҳо) ва пахш кунед OK.
Ҳама ячейкаҳои холӣ дар диапазон интихоб карда мешаванд.
- Мо дар меню барои нест кардани чашмакҳои интихобшуда фармон медиҳем: тугмаи ростро пахш кунед- Ҳуҷайраҳоро нест кунед (Нест кардани чашмакҳо) бо гузариш ба боло.
Усули 2: Формула массив
Барои содда кардан, биёед бо истифода аз диапазонҳои кории худро номбар кунем Менеҷери ном (Мудири ном) ҷадвали формула (Формулаҳо) ё, дар Excel 2003 ва калонтар, меню Ворид - Ном - Таъин (Ворид - Ном - Муайян кунед)
Диапазони B3:B10-ро номбар кунед Холӣ дошта бошед, диапазони D3: D10 - Ҳеҷ холӣ. Диапазонҳо бояд ба таври қатъӣ як андоза бошанд ва метавонанд дар ҳама ҷо нисбат ба ҳамдигар ҷойгир шаванд.
Акнун ячейкаи якуми диапазони дуюмро интихоб кунед (D3) ва ин формулаи даҳшатоварро ба он ворид кунед:
=АГАР(САТР() -САТР(Не холӣ)+1>NOTROWS(ҲаХоли)-COUNTBLANK(БалеХол);””;БАЙСУВАМ(АДРЕС(ПАСТТАРИН((АГАР(Холи<>“",САТР(Холи);РАВ)() + САТРҲО(Холи ҳастанд))); САТР()-САТР(Холи нест)+1); СУТУН(Холи ҳастанд); 4)))
Дар версияи англисӣ он хоҳад буд:
=АГАР(САТР()-САТР(Нохолӣ)+1>САТРҲО(Холи)-ҲИСОББЛАНК(Холӣ),””,БАЙРУСУП(АДРЕС(ХУРД((Агар(Холӣ<>“",САТР(Холи),САТР()) +САТРҲО(Холӣ дошта бошед))),САТР()-САТР(Нохолӣ)+1), СУТУН(Холӣ дошта бошед),4)))
Илова бар ин, он бояд ҳамчун формулаи массив ворид карда шавад, яъне пас аз часпондан пахш кунед даромадан (чун одат) ва Ctrl + Shift + Enter. Акнун формуларо бо истифода аз автоматпуркунӣ нусхабардорӣ кардан мумкин аст (салиби сиёҳро дар кунҷи рости поёни чашмак кашед) - ва мо диапазони аслиро мегирем, аммо бидуни чашмакҳои холӣ:
Усули 3. Функсияи фармоишӣ дар VBA
Агар шубҳае вуҷуд дошта бошад, ки шумо бояд тартиби тоза кардани ячейкаҳои холӣ аз диапазонҳоро такрор кунед, пас беҳтар аст, ки функсияи худро барои нест кардани чашмакҳои холӣ ба маҷмӯи стандартӣ як маротиба илова кунед ва онро дар ҳама ҳолатҳои минбаъда истифода баред.
Барои ин, муҳаррири Visual Basic -ро кушоед (ALT+F11), модули нави холӣ ворид кунед (меню Ворид - Модул) ва матни ин функсияро дар он ҷо нусхабардорӣ кунед:
Функсияи NoBlanks(DataRange ҳамчун Диапазон) Ҳамчун Вариант() Торик N Ба қадри дарозии хира N2 То дарозии хира Rng ҳамчун Диапазон Dim MaxCells Чун дароз хира Дар натиҷа() Ҳамчун Вариант Dim R Ба қадри дарозии хира C ҳамчун дароз MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Натиҷа (1 ба MaxCells, 1 то 1) Барои ҳар як Rng дар DataRange.Cells Агар Rng.Value <> vbNullString Он гоҳ N = N + 1 Натиҷа (N, 1) ) = Rng.Value End If Next Rng For N2 = N + 1 To MaxCells Result(N2, 1) = vbNullString Next N2 Агар Application.Caller.Rows.Count = 1 Пас NoBlanks = Application.Transpose(Натиҷа) Дигар NoBlanks = Натиҷа Функсияи End If End
Фаромӯш накунед, ки файлро захира кунед ва аз муҳаррири Visual Basic ба Excel баргардед. Барои истифода бурдани ин функсия дар мисоли мо:
- Миқдори кофии чашмакҳои холиро интихоб кунед, масалан F3:F10.
- Ба меню равед Ворид - Функсия (Ворид — Функсия)ё тугмаро пахш кунед Функсияи ворид кунед (Функсияи ворид кардан) ҷадвали формула (Формулаҳо) дар версияҳои навтари Excel. Дар категория Корбар муайян карда шудааст (Истифодабаранда муайян карда шудааст) вазифаи моро интихоб кунед Бланка нест.
- Диапазони манбаъро бо холигоҳҳо (B3:B10) ҳамчун аргументи функсия муайян кунед ва пахш кунед Ctrl + Shift + Enterбарои ворид кардани функсия ҳамчун формулаи массив.
:
- Ҳама сатрҳои холии ҷадвал якбора бо макроси оддӣ нест карда мешаванд
- Хориҷ кардани ҳама сатрҳои холӣ дар варақаи корӣ якбора бо истифода аз иловаи PLEX
- Ҳама ҳуҷайраҳои холӣ зуд пур кунед
- Макросҳо чист, дар куҷо рамзи макро дар VBA дохил кардан мумкин аст