Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gyd-fynd â gwerthoedd celloedd nes eu bod yn dod o hyd i gell wag mewn colofn?

doc yn cyd-fynd nes ei fod yn wag 1

Er enghraifft, mae gen i restr o werthoedd sy'n cynnwys rhai celloedd gwag, ac yn awr, rydw i eisiau cyd-fynd â phob set o ddata rhwng bylchau i mewn i gell a rhestru'r gwerthoedd cyfun mewn colofn arall fel y llun a ddangosir ar hyn o bryd. Sut allwn i gyd-fynd â chelloedd nes dod o hyd i gell wag mewn colofn?

Concatenate gwerthoedd celloedd nes os yn dod o hyd i gell wag mewn colofn gyda chod VBA

Concatenate gwerthoedd celloedd nes os yn dod o hyd i gell wag mewn colofn gyda Kutools ar gyfer Excel


swigen dde glas saeth Concatenate gwerthoedd celloedd nes os yn dod o hyd i gell wag mewn colofn gyda chod VBA

Nid oes unrhyw ffordd uniongyrchol i chi gyd-fynd â set o gelloedd rhwng bylchau, ond, gallwch chi gymhwyso'r cod VBA canlynol i ddelio ag ef. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: cyd-fynd â gwerthoedd celloedd nes eu bod yn dod o hyd i gell wag

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am gyd-daro, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 10

4. Yna cliciwch OK, ac mae blwch prydlon arall wedi'i popio allan, dewiswch gell i allbwn y canlyniad cydgysylltiedig, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 11

5. Ac yna cliciwch OK botwm, ac mae data'r rhestr golofnau yn cyd-fynd rhwng y bylchau, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 1


swigen dde glas saeth Concatenate gwerthoedd celloedd nes os yn dod o hyd i gell wag mewn colofn gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, gan gyfuno ei Trawsnewid Ystod a Cyfunwch nodweddion, gallwch hefyd orffen y swydd hon cyn gynted â phosibl. Mae'r Trawsnewid Ystod gall cyfleustodau eich helpu chi i drosi'r golofn sengl yn amrediad, a'r Cyfunwch gall nodwedd eich helpu chi i gyd-fynd â'r amrediad wedi'i drawsnewid i golofn.

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

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch y celloedd rydych chi am gyd-daro, a chlicio Kutools > Ystod > Trawsnewid Ystod, gweler y screenshot:

2. Yn y Trawsnewid Ystod blwch deialog, gwirio Colofn sengl i amrediad opsiwn o dan y Trawsnewid math, Ac yna dewiswch Mae celloedd gwag yn amffinio cofnodion O dan y Rhesi y cofnod, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 3

3. Yna cliciwch Ok, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis cell i allbwn y canlyniad, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 4

4. Cliciwch OK, ac mae'r data colofn sengl wedi'i drosi'n rhesi a cholofnau lluosog gan y gell wag, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 5

5. Mae'r data sydd wedi'i drosi mewn sawl colofn, felly mae angen i chi eu cyfuno'n un golofn, dewiswch yr ystod ddata a chlicio Kutools > Uno a Hollti > Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data, gweler y screenshot:

6. Yn y Cyfuno Colofnau neu Rhesi blwch deialog, gwnewch yr opsiynau canlynol:

(1.) Dewis Cyfuno colofnau opsiwn gan y Cyfuno celloedd dethol yn ôl yr opsiynau canlynol;

(2.) Yna nodwch wahanydd eich bod am wahanu'r gwerthoedd cydgysylltiedig;

(3.) Dewiswch sut rydych chi am ddelio â'r celloedd cyfun. Gallwch gadw neu ddileu'r data gwreiddiol, a gallwch hefyd uno'r celloedd cyfun. Gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 7

7. Ar ôl gorffen y gosodiadau, cliciwch Ok or Gwneud cais botwm, mae'r celloedd wedi cael eu cyd-daro i mewn i un golofn gyda gwahanydd penodol, gweler y screenshot:

doc yn cyd-fynd nes ei fod yn wag 8

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JJ · 1 years ago
    It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, JJ,
      The code works well in my worksheet, which Excel version do you use?
      Or you can insert a screesnhot of your problem here.
  • To post as a guest, your comment is unpublished.
    Crystal · 5 years ago
    How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number.

    Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?