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

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 ac 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
sylwadau (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddech chi'n ei wneud os ydych chi am ei seilio ar golofn arall? Mae gennyf ddata tebyg, ond mae colofn B yn rhif yna nodiadau (fel eich ffrwyth) yng ngholofn I, rwyf am gyfuno'r holl nodiadau yng ngholofn I nes bod cell arall yng Ngholofn B sydd â rhif yn unig. Weithiau mae llythyren o dan B neu mae'r celloedd yn wag a dyna pam mae angen cyfuno tan rif. Yna o'r diwedd a all allbwn yn ôl i'r man cychwynnodd y cyfuniad? IE mae pob nodyn ar gyfer y rhif cyntaf yng ngholofn j, ond os yw'r rhif nesaf 5 rhes o dan hynny yn iawn, mae'n mynd yng ngholofn j ond yr un rhif rhes â'r rhif a geir?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n dangos bod gwall cystrawen ar-lein 3 "Dim xRg As Range" pan fyddaf yn ceisio rhedeg y modiwl hwn yn seiliedig ar ddull 1, beth ddylwn i ei wneud amdano?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, JJ, Mae'r cod yn gweithio'n dda yn fy nhaflen waith, pa fersiwn Excel ydych chi'n ei ddefnyddio? Neu gallwch chi fewnosod sgreesnhot o'ch problem yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
swydd wych bro, Defnyddiol iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Croeso. Falch ei fod yn helpu. Unrhyw gwestiynau, mae croeso i chi gysylltu â ni. Cael diwrnod gwych.
Yn gywir,
Mandy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir