Ինչպե՞ս Excel- ում հաջորդական թվերի բացակայության համարներ կամ տողեր տեղադրել:

Ենթադրելով, որ դուք ունեք թերթի հաջորդական թվերի ցուցակ, բայց հաջորդականության մեջ կան մի քանի պակաս թվեր, և այժմ դուք պետք է տեղադրեք բացակայող թվերը կամ դատարկ տողերը ՝ համոզվելու համար, որ հաջորդականությունը ամբողջական է (ցուցադրվում է որպես հետևյալ նկարներ): Ինչպե՞ս կարող եք արագ լուծել այս խնդիրը Excel- ում:

Տեղադրեք բացակայող թվերը հաջորդականության համար Տեսակավորել և հեռացնել կրկնօրինակները հնարավորությամբ Տեղադրեք բացակա թվերը հաջորդականության համար VBA կոդով Տեղադրեք դատարկ տողեր `VBA կոդով բացակայող հաջորդականության համար Տեղադրեք անհայտ թվերը կամ դատարկ տողերը հաջորդականության համար Kutools- ի համար Excel- ի համար

Տեղադրեք բացակայող թվերը հաջորդականության համար Տեսակավորել և հեռացնել կրկնօրինակները հնարավորությամբ

Գուցե կարողանաք մեկ առ մեկ գտնել բացակայող թվերը, այնուհետև տեղադրել դրանք, բայց ձեզ համար դժվար է որոշել անհայտ կորածների գտնվելու վայրը, եթե կան հարյուրավոր հաջորդական թվեր: Excel- ում ես կարող եմ օգտագործել «Տեսակավորել և հեռացնել կրկնօրինակները» գործառույթը `այս խնդիրը լուծելու համար:

1, Հաջորդականությունների ցանկի ավարտից հետո լրացրեք մեկ այլ հաջորդականության համարներ `2005023001- ից 2005023011: Տեսեք,

2, Դրանից հետո ընտրեք երկու հաջորդականության համարների տիրույթը և կտտացրեք Ամսաթիվ > Տեսակավորել Ա-ն Z-ին, տես նկարի նկարը.

3, Եվ ընտրված տվյալները տեսակավորվել են հետևյալ սքրինշոթի տեսքով.

4, Դրանից հետո հարկավոր է կրկնօրինակները հեռացնել կտտոցով Ամսաթիվ > Հեռացնել կրկնօրինակներըև դուրս ցցված Հեռացնել կրկնօրինակները երկխոսության տուփ, ստուգեք Սյունակ անունը, որը ցանկանում եք հեռացնել կրկնօրինակները, տե՛ս սքրինշոթեր.

5. Այնուհետեւ կտտացրեք OK, կրկնօրինակները ներսում Սյունակ A ջնջվել է, և հաջորդականությունների ցուցակում բացակայում են համարները, տես նկարի նկարը.

Տեղադրեք բացակա թվերը հաջորդականության համար VBA կոդով

Եթե ​​կարծում եք, որ վերը նշված մեթոդներով այսքան շատ քայլեր կան, այստեղ նաև VBA կոդն ունի, որը կօգնի ձեզ ավարտել այս խնդիրը: Խնդրում ենք անել հետևյալը.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ պատուհան.

VBA. Հաջորդականության համար բացիր համարներ

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    outArr(i + 1, 1) = i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ արկղը դուրս կգա, ընտրեք տվյալների տիրույթը, որը ցանկանում եք տեղադրել բացակայող թվերը (մի ընտրեք վերնագրի տիրույթը), տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK, բացակայող համարները տեղադրվել են հաջորդականությունների ցուցակում: Տեսեք սքրինշոթերը.

Տեղադրեք դատարկ տողեր `VBA կոդով բացակայող հաջորդականության համար

Երբեմն պարզապես անհրաժեշտ է գտնել բացակայող թվերի տեղը և տվյալների միջեւ տեղադրել դատարկ շարքեր, որպեսզի կարողանաք մուտքագրել տեղեկատվությունն ըստ ձեզ: Իհարկե, հետևյալ VBA կոդը նույնպես կարող է օգնել ձեզ լուծել այս խնդիրը:

1. Անջատեք ALT + F11 ստեղները, և այն բացում է ա Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ պատուհան.

VBA. Տեղադրեք դատարկ տողեր բացակայող հաջորդականության համար

Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    If dic.Exists(i + num1) Then
        outArr(i + 1, 1) = i + num1
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 1) = ""
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

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

4. Եվ այնուհետեւ կտտացրեք OK, դատարկ տողերը տեղադրվել են բացակայող հաջորդականությունների ցուցակի համար: Տեսեք սքրինշոթերը.

Տեղադրեք անհայտ թվերը կամ դատարկ տողերը հաջորդականության համար Kutools- ի համար Excel- ի համար

Այստեղ ես կներկայացնեմ հեշտ և հարմար գործիք Excel- ի համար նախատեսված գործիքներԻր Գտեք բացակայող հաջորդականության համարը առանձնահատկությունը, դուք կարող եք արագ տեղադրել առկա տվյալների հաջորդականության միջև բացակայող հաջորդականության համարը կամ դատարկ շարքերը:

Եթե ​​տեղադրեք Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

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

2: Սեղմեք Կուտոլս > Տեղադրել > Գտեք բացակայող հաջորդականության համարը, տես նկարի նկարը.

3, Մեջ Գտեք բացակայող հաջորդականության համարը երկխոսության տուփ, ստուգեք Տեղադրում է բացակայող հաջորդականության համարը բացակայող թվերը տեղադրելու համար կամ Iբաց տողերի տեղադրում, երբ հաջորդականության համարները բացակայում են անհրաժեշտ դատարկ շարքեր տեղադրելու համար: Տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, և բացակայող հաջորդականության համարները կամ դատարկ տողերը տեղադրվել են տվյալների մեջ, տե՛ս սքրինշոթեր.

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

  Դեմո. Excel- ի համար Kutools- ի հետ հաջորդականության համար տեղադրեք բացակայող թվեր կամ դատարկ տողեր

Առնչվող հոդված:

Ինչպե՞ս պարզել անհայտ թվերի հաջորդականությունը Excel- ում:

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...