Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արագ հեռացնել գծի ընդմիջումները Excel- ում:

Երբեմն, երբ կայքից որոշ տվյալներ եք պատճենում կամ դրանց հետ առանձնացնում եք ձեր արժեքները Alt + Enter ստեղներ, դուք կստանաք գծի որոշ ընդմիջումներ կամ փոխադրումների վերադարձներ, եթե ցանկանում եք արագորեն հեռացնել Excel- ում բազմաթիվ գծերի ընդմիջումները, ինչպես ցույց են տրված հետևյալ նկարները, կարող եք դա անել հետեւյալ կերպ.

doc- հեռացնել-գծի ընդմիջումներ 1 -2 doc- հեռացնել-գծի ընդմիջումներ 2

Հեռացրեք տողի բազմաթիվ ընդմիջումները Find and Replace գործառույթի միջոցով

Հեռացրեք տողերի մի քանի ընդմիջումներ VBA կոդով

Հեռացրեք Excel- ի համար Kutools- ի բազմաթիվ տողերի ընդմիջումներ


նետ կապույտ աջ պղպջակ Հեռացրեք տողի բազմաթիվ ընդմիջումները Find and Replace գործառույթի միջոցով

Excel- ում Find և փոխարինելու գործառույթը կարող եք արագ հեռացնել բազմաթիվ տողերի ընդմիջումներից, խնդրում ենք մշակել այն հետևյալ կերպ.

1, Ընտրեք այն ընդգրկույթը, որը ցանկանում եք հեռացնել տողի մի քանի ընդմիջումներ:

2: Սեղմեք Գլխավոր > Գտեք և փոխարինեք > Փոխարինել կամ սեղմեք Ctrl + F դյուրանցումներ և Գտնել եւ փոխարինել երկխոսության տուփը դուրս կգա:

3. Այնուհետեւ Գտեք ինչ տուփ, խնդրում ենք պահել պահակը ALT ստեղնը, ապա կտտացրեք թվերը 010 թվային ստեղնաշարից: Թողնել Փոխարինել տուփը դատարկ է կամ մուտքագրեք բացատ: Տեսեք,

doc- հեռացնել-գծի ընդմիջումներ 3

4. Եվ այնուհետեւ կտտացրեք Փոխարինեք բոլորը կոճակը, գծի բոլոր ընդմիջումները հանվել են: Տեսեք,

doc- հեռացնել-գծի ընդմիջումներ 2


նետ կապույտ աջ պղպջակ Հեռացրեք տողերի մի քանի ընդմիջումներ VBA կոդով

Հետևյալ VBA կոդը կարող է նաև օգնել ձեզ ջնջել գծի բոլոր ընդմիջումները աշխատանքային թերթում: Խնդրում եմ արեք այսպես.

1: Սեղմեք Երեվակիչ > Visual Basic կամ սեղմեք Alt + F11 բացել ստեղները Microsoft Visual Basic դիմումների պատուհանի համար, ապա սեղմեք Տեղադրել > Մոդուլներև մուտքագրեք հետևյալ ծածկագիրը.

VBA կոդ. Աշխատանքային էջում հեռացնել տողի մի քանի ընդմիջումներ

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը կասի ձեզ ընտրել մի տիրույթ, որը ցանկանում եք հեռացնել գծերի ընդմիջումները, տե՛ս նկարը.

doc- հեռացնել-գծի ընդմիջումներ 4

3. Այնուհետեւ կտտացրեք OK և ընտրության բոլոր տողերի ընդմիջումները ջնջվել են:


նետ կապույտ աջ պղպջակ Հեռացրեք Excel- ի համար Kutools- ի բազմաթիվ տողերի ընդմիջումներ

Միգուցե երբեմն մոռանաք, թե ինչպես օգտագործել Find and Replace գործառույթը կամ կոդին անծանոթ գծերի բազմաթիվ ընդմիջումներ հեռացնելու համար, այս իրավիճակում, Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ լուծել այս խնդիրը:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now

Excel- ի համար Kutools- ը տեղադրելուց հետո կատարեք հետևյալ քայլերը.

1, Ընտրեք միջակայքը, որը ցանկանում եք հեռացնել փոխադրման վերադարձը:

2. Սեղմել Կուտոլս > Տեքստային գործիքներ > Հեռացնել նիշերը, տես նկարի նկարը.

doc- հեռացնել-գծի ընդմիջումներ 5

3, Մեջ Հեռացնել նիշերը երկխոսության տուփ, ստուգեք Ոչ տպագրական տարբերակը, և արդյունքը կարող եք տեսնել Preview նույնպես, տես նկարի նկարը.

doc- հեռացնել-գծի ընդմիջումներ 6

4. Եվ այնուհետեւ կտտացրեք OK or Դիմել, Գծի բոլոր ընդմիջումները կհեռացվեն ընտրված բջիջներից:

Կտտացրեք ՝ Հեռացնել նիշերը այս հատկության մասին ավելին իմանալու համար.


Related Articles:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations