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

Conas uimhreacha nó sraitheanna d’uimhreacha seicheamhacha atá in easnamh a chur isteach in Excel?

Má cheaptar go bhfuil liosta d’uimhreacha seicheamhacha agat i mbileog oibre, ach tá roinnt uimhreacha in easnamh i measc na seicheamh, agus anois ní mór duit na huimhreacha nó na sraitheanna bána atá in easnamh a chur isteach chun a chinntiú go bhfuil an seicheamh iomlán (taispeántar mar na scáileáin scáileáin seo a leanas). Conas a d’fhéadfá an fhadhb seo a réiteach go tapa in Excel?

doc-insert-in easnamh-uimhir1 -2 doc-insert-in easnamh-uimhir2

Cuir isteach uimhreacha atá in easnamh le haghaidh seicheamh leis an ngné Sórtáil agus Bain Dúblach

Cuir isteach uimhreacha atá in easnamh le haghaidh seicheamh le cód VBA

Cuir isteach sraitheanna bána le haghaidh seicheamh in easnamh le cód VBA

Cuir isteach uimhreacha nó sraitheanna bána in easnamh le haghaidh seicheamh le Kutools for Excel


mboilgeog cheart gorm saighead Cuir isteach uimhreacha atá in easnamh le haghaidh seicheamh leis an ngné Sórtáil agus Bain Dúblach

B’fhéidir go bhfaighidh tú na huimhreacha atá in easnamh ceann ar cheann, agus ansin iad a chur isteach, ach tá sé deacair duit suíomh na ndaoine atá in easnamh a aithint má tá na céadta uimhreacha seicheamhach ann. In Excel, is féidir liom an ghné Sórtáil agus Bain Dúblaigh a úsáid chun déileáil leis an tasc seo.

1. Tar éis dheireadh an liosta seicheamh, líon uimhreacha seicheamh eile ó 2005023001 go 2005023011. Féach an pictiúr:

doc-insert-in easnamh-uimhir3

2. Ansin roghnaigh raon an dá uimhir seicheamh agus cliceáil Dáta > Sórtáil A go Z., féach ar an scáileán:

doc-insert-in easnamh-uimhir4

3. Agus tá na sonraí roghnaithe curtha in eagar mar a leanas:

doc-insert-in easnamh-uimhir5

4. Ansin ní mór duit na dúblacha a bhaint trí chliceáil Dáta > Bain Dúblaigh, agus sa popped amach Bain Dúblaigh bosca dialóige, seiceáil an Colún ainm a theastaíonn uait na dúbailtí a bhaint, féach screenshots:

doc-insert-in easnamh-uimhir6 -2 doc-insert-in easnamh-uimhir7

5. Ansin cliceáil OK, na dúblacha i Colún A. Scriosadh, agus cuireadh na huimhreacha atá in easnamh ar an liosta seicheamh isteach, féach an scáileán:

doc-insert-in easnamh-uimhir8


mboilgeog cheart gorm saighead Cuir isteach uimhreacha atá in easnamh le haghaidh seicheamh le cód VBA

Má bhraitheann tú go bhfuil an oiread sin céimeanna leis na modhanna thuasluaite, tá cód VBA anseo freisin a chabhróidh leat an fhadhb seo a chríochnú. Déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil fhuinneog.

VBA: cuir isteach uimhreacha atá in easnamh don seicheamh

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach, roghnaigh an raon sonraí a theastaíonn uait na huimhreacha atá in easnamh a chur isteach (ná roghnaigh an raon teidil), féach an scáileán:

doc-insert-in easnamh-uimhir9

4. Agus ansin cliceáil OK, cuireadh na huimhreacha atá in easnamh ar an liosta seicheamh. Féach screenshots:

doc-insert-in easnamh-uimhir1 -2 doc-insert-in easnamh-uimhir2

mboilgeog cheart gorm saighead Cuir isteach sraitheanna bána le haghaidh seicheamh in easnamh le cód VBA

Uaireanta, ní gá duit ach áit na n-uimhreacha atá in easnamh a aimsiú agus sraitheanna bána a chur isteach idir na sonraí, ionas gur féidir leat an fhaisnéis a iontráil de réir mar is gá duit. Ar ndóigh, is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb seo a réiteach.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé a Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil fhuinneog.

VBA: cuir isteach sraitheanna bána le haghaidh seicheamh in easnamh

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus taispeánfar bosca pras, agus ansin roghnaigh an raon sonraí a theastaíonn uait sraitheanna bána a chur isteach don seicheamh atá in easnamh (ná roghnaigh an raon teidil), féach an scáileán:

doc-insert-in easnamh-uimhir9

4. Agus ansin cliceáil OK, tá na sraitheanna bána curtha isteach don liosta seicheamh atá in easnamh. Féach screenshots:

doc-insert-in easnamh-uimhir1 -2 doc-insert-in easnamh-uimhir10

mboilgeog cheart gorm saighead Cuir isteach uimhreacha nó sraitheanna bána in easnamh le haghaidh seicheamh le Kutools for Excel

Anseo, tabharfaidh mé uirlis éasca agus áisiúil isteach Kutools le haghaidh Excel, Lena Faigh Uimhir Seicheamh ar Iarraidh gné, is féidir leat an uimhir seicheamh nó na sraitheanna bána atá in easnamh a chur isteach go tapa idir an seicheamh sonraí atá ann.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá

Má tá tú suiteáilte agat Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh an t-ord sonraí a theastaíonn uait na huimhreacha atá in easnamh a chur isteach.

2. Cliceáil Kutools > Ionsáigh > Faigh Uimhir Seicheamh ar Iarraidh, féach ar an scáileán:

3. Sa an Faigh Uimhir Seicheamh ar Iarraidh bosca dialóige, seiceáil Uimhir seicheamh in easnamh a chur isteach chun na huimhreacha atá in easnamh a chur isteach nó I.sraitheanna bána a chur isteach nuair a bhíonn uimhreacha seicheamh in easnamh chun sraitheanna bána a chur isteach de réir mar is gá duit. Féach an pictiúr:

doc-insert-in easnamh-uimhir10

4. Agus ansin cliceáil OK cnaipe, agus na huimhreacha seicheamh atá in easnamh nó na sraitheanna bána curtha isteach sna sonraí, féach scáileáin scáileáin:

doc-insert-in easnamh-uimhir10 2 doc-insert-in easnamh-uimhir10 2 doc-insert-in easnamh-uimhir10

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


mboilgeog cheart gorm saighead  Taispeántas: Cuir isteach uimhreacha atá in easnamh nó sraitheanna bána le haghaidh seicheamh le Kutools for Excel

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Airteagal gaolmhar:

Conas seicheamh uimhreacha atá in easnamh a aithint in Excel?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (10)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! Script iontach! Conas is féidir liom an script seo a mhodhnú má deirim go gcaithfimid ní hamháin colún ID + colún NAME a phróiseáil, ach colún ID + colún NAME + colún NUA ? Conas is féidir liom colúin nua a chur leis an script seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo a leanas an macra modhnaithe chun colún breise a chur san áireamh - Pointe tábhachtach eile ná nuair a iarrtar ort an raon a roghnú, níor cheart duit ach an chéad cholún a roghnú - thóg siad seo cúpla uair an chloig dom! súil a shábháil daoine eile 'am

Fo IonsáighLuach Idir()
'Updateby Extendoffice
Dim WorkRng Mar Raon
Dim Rng Mar Raon
Dim outArr Mar mhalairt
Dim dic Mar Variant
Socraigh dic = CreateObject("Scripting.Dictionary")
Dim dic2 Mar Leagan
Socraigh dic2 = CreateObject("Scripting.Dictionary")

'Ar Earráid Lean Ar Aghaidh
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
num1 = WorkRng.Range("A1").Luach
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Luach
eatramh = uimhir2 - uimhir1
ReDim outArr(1 Go eatramh + 1, 1 Go 3)
Do Gach Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Luach
dic2(Rng.Value) = Rng.Offset(0, 2).Luach
Ar Aghaidh
Chun i = 0 Go eatramh
amachArr(i + 1, 1) = i + uimhir1
Má tá dic.Exists(i + uimhir1) Ansin
amachArr(i+1, 2) = dic(i + uimhir1)
amachArr(i + 1, 3) = dic2(i + uimhir1)
Eile
amachArr(i+1, 2)=""
amachArr(i+1, 3)=""

Deireadh Má
Ar Aghaidh
Le WorkRng.Range("A1").Athraigh méid(UBound(outArr, 1), UBound(outArr, 2))
.Luach = outArr
.Roghnaigh
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
d'oibrigh sé seo agus bhí sé an-éasca an tasc a chríochnú. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat. Conas a athraím an script mura bhfuil sna hincrimintí ach 0.02 agus nach 1 é seo don script InsertNullBetween()
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlóidh má theastaíonn uaim 6 cholún a roghnú agus ansin an 1ú colún a sheiceáil le haghaidh dátaí agus má tá dátaí in easnamh cuir ró (cealla bána) leis na 6 cholún
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom "Ionsáigh Uimhir Seicheamh ar Iarraidh" a úsáid, ach níl sé ag tacú mura bhfuil. de dhigit níos mó ná 12 an féidir leat cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom an ghné "Ionsáigh uimhir an tseichimh ar iarraidh" a úsáid ach níl sé ag tacú le digití níos mó ná 12 ? tá go leor tacair inar mian liom an seicheamh a chur isteach (is digit alfa-uimhriúil é) an féidir leat cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlóidh má theastaíonn uaim 6 cholún a roghnú agus ansin an 1ú colún a sheiceáil le haghaidh dátaí agus má tá dátaí in easnamh cuir ró (cealla bána) leis na 6 cholún
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat iontach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh an VBA a úsáid le haghaidh uimhreacha seicheamhach. Tá roinnt colún agam in aice leis na huimhreacha acu freisin. .i
1. Méadar HL 34
2. HL Méadar Uisce 40
4. HL CO2meter 24

Nuair a úsáidim an cód oibríonn sé don chéad 3 cholún ach déantar é a mheascadh má chuimsítear an 4ú colún toisc go n-áirítear ann uimhreacha freisin.
Conas is féidir liom an cód a athrú chun a chinntiú go bhfanann na huimhreacha i gcolún 4 mar a chéile?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL