Note: The other languages of the website are Google-translated. Back to English

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

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 1 -2 փաստաթուղթ-ներդիր-բացակայող-թիվ 2

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

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

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

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


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

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

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 3

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 4

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 5

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 6 -2 փաստաթուղթ-ներդիր-բացակայող-թիվ 7

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 8


նետ կապույտ աջ պղպջակ Տեղադրեք բացակա թվերը հաջորդականության համար 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 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ արկղը դուրս կգա, ընտրեք տվյալների տիրույթը, որը ցանկանում եք տեղադրել բացակայող թվերը (մի ընտրեք վերնագրի տիրույթը), տեսեք,

փաստաթուղթ-ներդիր-բացակայող-թիվ 9

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 1 -2 փաստաթուղթ-ներդիր-բացակայող-թիվ 2

նետ կապույտ աջ պղպջակ Տեղադրեք դատարկ տողեր `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 այս կոդն աշխատեցնելու բանալին, և կցուցադրվի հուշման տուփ, այնուհետև ընտրեք տվյալների տիրույթը, որը ցանկանում եք տեղադրել բաց տողերի համար բաց թողնված հաջորդականության համար (մի ընտրեք վերնագրի տիրույթը), տես նկարի նկարը.

փաստաթուղթ-ներդիր-բացակայող-թիվ 9

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 1 -2 փաստաթուղթ-ներդիր-բացակայող-թիվ 10

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

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

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

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

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

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

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 10

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

փաստաթուղթ-ներդիր-բացակայող-թիվ 10 2 փաստաթուղթ-ներդիր-բացակայող-թիվ 10 2 փաստաթուղթ-ներդիր-բացակայող-թիվ 10

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


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

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

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

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


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն Հիանալի սցենար! Ինչպե՞ս կարող եմ փոփոխել այս սկրիպտը, եթե ասեմ, որ մենք պետք է մշակենք ոչ միայն ID սյունակ + ԱՆՈՒՆ սյունակ, այլ ID սյունակ + ԱՆՈՒՆ սյունակ + ՆՈՐ սյունակ: Ինչպե՞ս կարող եմ նոր սյունակներ ավելացնել այս սցենարում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հետևյալը փոփոխված մակրո է, որը ներառում է ավելացված սյունակ. Մեկ այլ կարևոր կետ այն է, որ երբ ձեզ հուշում են ընտրել տիրույթը, դուք պետք է ընտրեք միայն առաջին սյունակը. ինձ համար մի քանի ժամ տևեց: հույս ունեմ խնայել ուրիշների ժամանակը

SubInsertValueBetween()
― Թարմացնելով Extendoffice
Dim WorkRng որպես տիրույթ
Dim Rng որպես միջակայք
Dim outArr As Variant
Dim dic Որպես տարբերակ
Սահմանել dic = CreateObject ("Scripting.Dictionary")
Dim dic2 Որպես տարբերակ
Սահմանել dic2 = CreateObject («Scripting.Dictionary»)

«Սխալի դեպքում վերսկսել հաջորդը
xTitleId = «KutoolsforExcel»
Սահմանել WorkRng = Application.Selection
Սահմանել WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Արժեք
num2 = WorkRng.Range ("A" & WorkRng.Rows.Count) Value
ընդմիջում = num2 - num1
ReDim outArr (1-ից ընդմիջում + 1, 1-ից 3)
Յուրաքանչյուր Rng-ի համար WorkRng-ում
dic(Rng.Value) = Rng.Offset(0, 1).Value
dic2(Rng.Value) = Rng.Offset(0, 2).Value
հաջորդ
i = 0-ի համար Դեպի ընդմիջում
outArr(i + 1, 1) = i + num1
Եթե ​​dic.Exists(i + num1) Ապա
outArr(i + 1, 2) = dic (i + num1)
outArr(i + 1, 3) = dic2 (i + num1)
Ուրիշ
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

Վերջ: Եթե
հաջորդ
WorkRng.Range-ով («A1»). Չափափոխել (UBound(outArr, 1), UBound(outArr, 2))
.Արժեք = outArr
.Ընտրեք
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա աշխատեց և շատ հեշտ էր կատարել առաջադրանքը: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն. Ինչպես կարող եմ փոխել սկրիպտը, եթե ավելացումները ընդամենը 0.02 են և ոչ 1: Սա InsertNullBetween() սկրիպտի համար է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ անել, եթե ես ուզում եմ ընտրել 6 սյունակ, այնուհետև ստուգել 1-ին սյունակը ամսաթվերի համար, և եթե ամսաթվերը բացակայում են, ավելացնել տող (դատարկ բջիջներ) բոլոր 6 սյունակների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ուզում եմ օգտագործել «Inserting Missing Sequence Number»-ը, բայց այն չի աջակցում, եթե ոչ: թվանշանները 12-ից ավելի են, կարո՞ղ եք օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ օգտագործել «Զետեղել բացակայող հաջորդականության համարը» գործառույթը, բայց այն չի ապահովում 12-ից ավելի թվանշաններ: կան բազմաթիվ հավաքածուներ, որոնց միջև ես ուզում եմ տեղադրել հաջորդականությունը (դա ալֆա-թվային թվանշան է) կարող եք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ անել, եթե ես ուզում եմ ընտրել 6 սյունակ, այնուհետև ստուգել 1-ին սյունակը ամսաթվերի համար, և եթե ամսաթվերը բացակայում են, ավելացնել տող (դատարկ բջիջներ) բոլոր 6 սյունակների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն զարմանալի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ օգտագործել VBA-ն հաջորդական թվերի համար: Ես ունեմ մի քանի սյունակ, որոնց թվերի կողքին նույնպես թվեր են: Այսինքն
1. HL Հաշվիչ 34
2. ՀԼ Ջրաչափ 40
4. HL CO2meter 24

Երբ ես օգտագործում եմ կոդը, այն աշխատում է առաջին 3 սյունակների համար, բայց այն խառնվում է, եթե ներառեմ 4-րդ սյունակը, քանի որ այն ներառում է նաև թվեր:
Ինչպե՞ս կարող եմ փոխել կոդը՝ համոզվելու համար, որ սյունակ 4-ի համարները նույնը մնան:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից