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

Sut i fewnosod rhifau neu resi ar gyfer rhifau dilyniannol coll yn Excel?

Gan dybio bod gennych chi restr o rifau dilyniannol mewn taflen waith, ond mae yna rai rhifau coll ymhlith y dilyniant, ac nawr mae angen i chi fewnosod y rhifau coll neu'r rhesi gwag i sicrhau bod y dilyniant yn gyflawn (a ddangosir fel y sgrinluniau canlynol). Sut allech chi ddatrys y broblem hon yn Excel yn gyflym?

doc-insert-coll-rhif1 -2 doc-insert-coll-rhif2

Mewnosodwch rifau coll ar gyfer dilyniant gyda'r nodwedd Trefnu a Dileu Dyblygu

Mewnosod rhifau coll ar gyfer dilyniant gyda chod VBA

Mewnosod rhesi gwag ar gyfer dilyniant coll gyda chod VBA

Mewnosod rhifau coll neu resi gwag ar gyfer dilyniant gyda Kutools ar gyfer Excel


swigen dde glas saeth Mewnosodwch rifau coll ar gyfer dilyniant gyda'r nodwedd Trefnu a Dileu Dyblygu

Efallai y gallwch ddod o hyd i'r rhifau coll fesul un, ac yna eu mewnosod, ond mae'n anodd i chi nodi lleoliad y rhai sydd ar goll os oes cannoedd o rifau dilyniannol. Yn Excel, gallaf ddefnyddio'r nodwedd Trefnu a Dileu Dyblygu i ddelio â'r dasg hon.

1. Yn dilyn diwedd y rhestr ddilyniannau, llenwch rifau dilyniant arall o 2005023001 i 2005023011. Gweler y screenshot:

doc-insert-coll-rhif3

2. Yna dewiswch ystod y ddau rif dilyniant a chlicio Dyddiad > Trefnu A i Z., gweler y screenshot:

doc-insert-coll-rhif4

3. Ac mae'r data a ddewiswyd wedi'i ddidoli fel y screenshot canlynol:

doc-insert-coll-rhif5

4. Yna mae angen i chi gael gwared ar y dyblygu trwy glicio Dyddiad > Tynnwch y Dyblygion, ac yn y popped allan Tynnwch y Dyblygion blwch deialog, gwiriwch y Colofn enwwch eich bod am gael gwared ar y dyblygu, gweler sgrinluniau:

doc-insert-coll-rhif6 -2 doc-insert-coll-rhif7

5. Yna cliciwch OK, y dyblygu yn Colofn A. wedi'i ddileu, ac mae'r rhifau coll yn y rhestr dilyniant wedi'u mewnosod, gweler y screenshot:

doc-insert-coll-rhif8


swigen dde glas saeth Mewnosod rhifau coll ar gyfer dilyniant gyda chod VBA

Os ydych chi'n teimlo bod cymaint o gamau gyda'r dulliau uchod, yma hefyd mae cod VBA yn gallu'ch helpu chi i orffen y broblem hon. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.

VBA: rhowch rifau coll ar gyfer y dilyniant

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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan, dewiswch yr ystod ddata rydych chi am fewnosod y rhifau coll (peidiwch â dewis yr ystod teitl), gweler y screenshot:

doc-insert-coll-rhif9

4. Ac yna cliciwch OK, mae'r rhifau coll wedi'u mewnosod ar y rhestr ddilyniannau. Gweler sgrinluniau:

doc-insert-coll-rhif1 -2 doc-insert-coll-rhif2

swigen dde glas saeth Mewnosod rhesi gwag ar gyfer dilyniant coll gyda chod VBA

Weithiau, does ond angen i chi ddod o hyd i le'r rhifau coll a mewnosod rhesi gwag rhwng y data, fel y gallwch chi nodi'r wybodaeth yn ôl yr angen. Wrth gwrs, gall y cod VBA canlynol hefyd eich helpu i ddatrys y broblem hon.

1. Dal i lawr y ALT + F11 allweddi, ac mae'n agor a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.

VBA: mewnosod rhesi gwag ar gyfer dilyniant coll

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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn ei arddangos, ac yna dewiswch yr ystod ddata rydych chi am ei mewnosod rhesi gwag ar gyfer y dilyniant coll (peidiwch â dewis yr ystod teitl), gweler y screenshot:

doc-insert-coll-rhif9

4. Ac yna cliciwch OK, mae'r rhesi gwag wedi'u mewnosod ar gyfer y rhestr dilyniant goll. Gweler sgrinluniau:

doc-insert-coll-rhif1 -2 doc-insert-coll-rhif10

swigen dde glas saeth Mewnosod rhifau coll neu resi gwag ar gyfer dilyniant gyda Kutools ar gyfer Excel

Yma, byddaf yn cyflwyno teclyn hawdd a defnyddiol- Kutools ar gyfer Excel, Gyda'i Dewch o Hyd i Rif Dilyniant Ar Goll nodwedd, gallwch fewnosod y rhif dilyniant coll neu'r rhesi gwag yn gyflym rhwng y dilyniant data presennol.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch y dilyniant data rydych chi am fewnosod y rhifau coll.

2. Cliciwch Kutools > Mewnosod > Dewch o Hyd i Rif Dilyniant Ar Goll, gweler y screenshot:

3. Yn y Dewch o Hyd i Rif Dilyniant Ar Goll blwch deialog, gwirio Mewnosod rhif dilyniant coll i fewnosod y rhifau coll neu I.traddodi rhesi gwag wrth ddod ar draws rhifau dilyniant coll i fewnosod rhesi gwag yn ôl yr angen. Gweler y screenshot:

doc-insert-coll-rhif10

4. Ac yna cliciwch OK botwm, ac mae'r rhifau dilyniant coll neu'r rhesi gwag wedi'u mewnosod yn y data, gweler sgrinluniau:

doc-insert-coll-rhif10 2 doc-insert-coll-rhif10 2 doc-insert-coll-rhif10

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


swigen dde glas saeth  Demo: Mewnosod rhifau coll neu resi gwag ar gyfer dilyniant gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i nodi dilyniant rhifau coll yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Sgript wych! Sut y gallaf addasu'r sgript hon os dywedaf fod angen i ni brosesu nid yn unig colofn ID + colofn NAME, ond colofn ID + colofn ENW + colofn NEWYDD? Sut alla i ychwanegu colofnau newydd yn y sgript hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y canlynol yw'r macro wedi'i addasu i gynnwys colofn ychwanegol - Pwynt pwysig arall yw pan ofynnir i chi ddewis yr ystod, dim ond y golofn gyntaf y dylech ei dewis - cymerodd y rhain ychydig oriau i mi! gobeithio arbed amser eraill

Is-Gwerth Mewnosod Rhwng()
'Updateby Extendoffice
Dim WorkRng Fel Ystod
Dim Rng Fel Ystod
Dim outArr Fel Amrywiad
Dim dic Fel Amrywiad
Gosod dic = CreateObject("Scripting.Dictionary")
Dim dic2 Fel Amrywiad
Gosod dic2 = CreateObject("Scripting.Dictionary")

'Ar Gwall Ailddechrau Nesaf
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
num1 = WorkRng.Range("A1").Gwerth
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Gwerth
cyfwng = rhif2 - rhif1
ReDim outArr(1 I'r cyfwng + 1, 1 I 3)
Ar gyfer Pob Rng Mewn WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Gwerth
dic2(Rng.Value) = Rng.Offset(0, 2).Gwerth
Digwyddiadau
Am i = 0 I cyfwng
allanArr(i + 1, 1) = i + rhif1
Os dic.Exists(i + rhif1) Yna
allan Arr(i + 1, 2) = dic(i + rhif 1)
allan Arr(i + 1, 3) = dic2(i + rhif1)
arall
allanArr(i+1, 2)=""
allanArr(i+1, 3)=""

Gorffennwch Os
Digwyddiadau
Gyda WorkRng.Range("A1").Newid maint(UBound(outArr, 1), UBound(outArr, 2))
.Gwerth = allanArr
.Dethol
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gweithiodd hyn ac roedd yn hawdd iawn cwblhau'r dasg. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn. Sut mae newid y sgript os mai dim ond 0.02 yw'r cynyddrannau ac nid 1 Mae hyn ar gyfer y sgript InsertNullBetween()
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i eisiau dewis 6 colofn ac yna gwirio'r golofn 1af am ddyddiadau ac os oes dyddiadau ar goll ychwanegwch res (celloedd gwag) ar gyfer pob un o'r 6 cholofn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am ddefnyddio "Mewnosod Rhif Dilyniant Coll", ond nid yw'n cefnogi os na. o ddigidau yn fwy na 12 allwch chi helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ddefnyddio nodwedd "Mewnosod dilyniant coll Rhif" ond nid yw'n cefnogi ar gyfer digidau mwy na 12 ? mae llawer o setiau yr wyf am fewnosod y dilyniant rhyngddynt (mae'n ddigid alffa-rifol) allwch chi helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i eisiau dewis 6 colofn ac yna gwirio'r golofn 1af am ddyddiadau ac os oes dyddiadau ar goll ychwanegwch res (celloedd gwag) ar gyfer pob un o'r 6 cholofn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch anhygoel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio defnyddio'r VBA ar gyfer rhifau dilyniannol. Mae gen i sawl colofn wrth ymyl y niferoedd o ba rifau hefyd. h.y
1. Mesurydd HL 34
2. HL Watermeter 40
4. HL CO2meter 24

Pan fyddaf yn defnyddio'r cod mae'n gweithio ar gyfer y 3 colofn gyntaf ond mae'n cael ei gymysgu os byddaf yn cynnwys y 4edd golofn gan ei fod yn cynnwys rhifau hefyd.
Sut alla i newid y cod i wneud yn siŵr bod y niferoedd yng ngholofn 4 yn aros yr un fath?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir