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
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:
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 Kutoolsorexcel 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:
