Как да копирате и поставите само непразни клетки в Excel?
Повечето от нас може да страдат от този проблем, когато копираме списък с данни, който съдържа някои празни клетки, и след това ги поставим в друга колона, празните клетки също ще бъдат поставени. Това е много досадно, когато не се нуждаем от празни места и искаме да поставим само непразни клетки. В този случай как бихме могли да копираме и поставим само непразни клетки в Excel бързо и удобно? Ето няколко бързи трика, за да го разрешите:
Копирайте и поставете само непразни клетки с командата Go To Special
Копирайте и поставете само непразни клетки с функцията за филтриране
Копирайте и поставете само непразни клетки с формула за масив
Копирайте и поставете само непразни клетки с VBA код
Копирайте и поставете само непразни клетки с Kutools за Excel 
Копирайте и поставете само непразни клетки с командата Go To Special
С Отидете на Special можете първо да изберете всички данни и след това да ги копирате и поставите на друго място.
1. Изберете своя списък с данни, които искате да използвате.
2, След това кликнете Начало > Търсене и избор > Отидете на Special, вижте екранна снимка:
3. В Отидете на Special диалогов прозорец, проверете константи опция, вижте екранна снимка:
4, След това кликнете OKи в списъка са избрани само клетките със стойности.
5. След това копирайте и поставете данните на желаното от вас място. И само стойностите на непразните клетки са поставени. Вижте екранна снимка:
Забележка: Този метод е достъпен само за константите, не се прилага към клетките с формули.
Копирайте и поставете само непразни клетки с функцията за филтриране
- филтър може да ви помогне първо да филтрирате непразните клетки и след това можете да ги копирате и поставите в други клетки, както ви е необходимо.
2. Щракнете Дата > филтър, вижте екранна снимка:
3. След това щракнете върху падащия бутон в десния ъгъл на клетката в избрания списък и премахнете отметката от Заготовки опция под падащото меню. Вижте екранна снимка:
4, И после щракнете върху OK, всички непразни клетки са филтрирани, както е показано на следната екранна снимка:
5. Най-накрая можете да копирате филтрираните данни и да ги поставите на всяко място, от което се нуждаете.
Забележка: И стойностите, и формулите влизат в сила при използване на този начин.
Изберете непразни клетки наведнъж |
| Кликнете за безплатен пълнофункционален пробен период след 30 дни! |
 |
Копирайте и поставете само непразни клетки с формула за масив
За да копирате и поставите само непразните клетки, можете също да приложите следната формула за масив.
1. Освен вашите данни, въведете следната формула в празна клетка:
=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
Забележка: В горната формула, A1: A15 е списъкът с данни, който искате да използвате. Можете да го промените според вашите нужди.
2. След това натиснете Shift + Ctrl + Enter клавиши заедно и след това изберете клетка B1 и плъзнете манипулатора за запълване до диапазона, който искате да съдържа тази формула, и всички непразни стойности на клетките са извлечени. Вижте екранна снимка:
3. Тъй като те са формули, когато ги копирате на друго място, трябва да ги копирате и поставите като стойности.
Забележка: Тази формула е достъпна само за константите, не се прилага към клетките с формула.
Копирайте и поставете само непразни клетки с VBA код
Ако се интересувате от VBA код, можете да изпълните следния код, за да завършите тази задача.
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Копирайте и поставете само непразни клетки в Excel
Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
MsgBox "Please select one column."
Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub
3. След това натиснете F5 за да стартирате този код, ще се появи поле за подкана, за да ви напомни да изберете диапазона от данни, който искате да използвате. Вижте екранна снимка:
4, И после щракнете върху OK, ще изскочи друго поле за подкана, за да ви позволи да изберете клетка, в която да поставите данните.
5. Кликнете OK за да завършите този код и само стойностите на непразните клетки са поставени в указаната от вас позиция.
Забележка: Този код е достъпен само за константите.
Копирайте и поставете само непразни клетки с Kutools за Excel
Има ли някакъв много по-лесен начин от горния? Разбира се, Kutools за Excel's Изберете Непразна клеткаПомощната програма може да ви помогне първо да изберете непразните клетки и след това да ги копирате и поставите.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. | ||
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона от клетки и щракнете Kutools > Изберете > Изберете Непразни клетки. Вижте екранна снимка:
2. След това се избират непразните клетки, натиснете Ctrl + C за да ги копирате, след това отидете, за да изберете клетка, където искате да изведете поставения резултат, натиснете Ctrl + V за поставяне на избрани непразни клетки. Вижте екранна снимка:
Копирайте и поставете само непразни клетки
| Kutools за Excel: 300+ функции, които трябва да имате в Excel, 30-дневен безплатен пробен период от тук |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
