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

Sut i uno pob rhes / cell arall yn Excel?

Os oes gennych chi restr o ddata, a'ch bod chi am gyfuno pob rhes neu gell arall ohonyn nhw fel y dangosir isod, a ydych chi'n gwybod sut i wneud hynny? Yn Excel, gallwch ddefnyddio fformiwla neu VBA i uno pob rhes neu gell arall.


Uno pob rhes / cell arall â fformiwla yn Excel

Uno pob rhes / cell arall â VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Uno pob rhes / cell arall â fformiwla yn Excel


Dewiswch gell wag a'i theipio =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Mae $ 1 yn nodi'r data cyntaf yn eich rhestr, gallwch ei newid yn ôl yr angen), a gwasgwch Enter key. Yna llusgwch yr handlen llenwi i lenwi'r ystod sydd ei hangen arnoch i gymhwyso'r fformiwla hon. Gweler y screenshot:



swigen dde glas saeth Uno pob rhes / cell arall â VBA

Os ydych chi'n cael eich defnyddio i ddefnyddio VBA, gallwch chi hefyd redeg y VBA isod i uno pob rhes arall.

1. Cynnal ALT botwm a gwasgwch F11 ar y bysellfwrdd i agor a Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA i'r modiwl.

VBA: Uno pob rhes / cell arall

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

 

3. Cliciwch Run i redeg y cod VBA, ac a KutoolsforExcel deialog yn galw i chi ddewis ystod o gelloedd rydych chi am uno'r rhes bob yn ail. Gweler y screenshot:


4. Cliciwch OK, mae dialog arall yn arddangos ichi ddewis un gell i roi'r canlyniad unedig allan. Gweler y screenshot:


5. Cliciwch OK, a gallwch weld y canlyniad:



Erthyglau Perthynas:

sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir