Ինչպե՞ս Excel- ում հաջորդական թվերի բացակայության համարներ կամ տողեր տեղադրել:
Ենթադրելով, որ դուք ունեք թերթի հաջորդական թվերի ցուցակ, բայց հաջորդականության մեջ կան մի քանի պակաս թվեր, և այժմ դուք պետք է տեղադրեք բացակայող թվերը կամ դատարկ տողերը ՝ համոզվելու համար, որ հաջորդականությունը ամբողջական է (ցուցադրվում է որպես հետևյալ նկարներ): Ինչպե՞ս կարող եք արագ լուծել այս խնդիրը 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- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Եթե տեղադրեք Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք տվյալների հաջորդականությունը, որը ցանկանում եք տեղադրել բացակայող թվերը:
2: Սեղմեք Կուտոլս > Տեղադրել > Գտեք բացակայող հաջորդականության համարը, տես նկարի նկարը.
3, Մեջ Գտեք բացակայող հաջորդականության համարը երկխոսության տուփ, ստուգեք Տեղադրում է բացակայող հաջորդականության համարը բացակայող թվերը տեղադրելու համար կամ Iբաց տողերի տեղադրում, երբ հաջորդականության համարները բացակայում են անհրաժեշտ դատարկ շարքեր տեղադրելու համար: Տեսեք,
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, և բացակայող հաջորդականության համարները կամ դատարկ տողերը տեղադրվել են տվյալների մեջ, տե՛ս սքրինշոթեր.
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
Դեմո. Excel- ի համար Kutools- ի հետ հաջորդականության համար տեղադրեք բացակայող թվեր կամ դատարկ տողեր
Առնչվող հոդված:
Ինչպե՞ս պարզել անհայտ թվերի հաջորդականությունը Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: