Sut i gyfuno colofnau lluosog yn un rhestr yn Excel?
I gyfuno neu uno colofnau lluosog yn un rhestr hir, fel rheol, gallwch chi gopïo a gludo data'r colofnau fesul un i'r golofn benodol. Ond, yma, gallaf gyflwyno rhai triciau cyflym i chi i ddatrys y dasg hon yn Excel.
Cyfunwch golofnau lluosog yn un rhestr â chod VBA
Cyfuno colofnau lluosog i mewn i un rhestr gyda Kutools ar gyfer Excel
Cyfunwch golofnau lluosog yn un rhestr â chod VBA
Heb ailadrodd i gopïo a gludo data'r colofnau, gall y cod VBA canlynol eich helpu i ddelio â'r swydd hon yn gyflym ac yn hawdd.
1. Dal i lawr y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.
Cod VBA: Cyfuno neu uno colofnau lluosog yn un rhestr
Sub CombineColumns1()
'updateby Extendoffice
Dim xRng As Range
Dim i As Integer
Dim xLastRow As Integer
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
xLastRow = xRng.Columns(1).Rows.Count + 1
For i = 2 To xRng.Columns.Count
Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
xLastRow = xLastRow + xRng.Columns(i).Rows.Count
Next
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei chyfuno'n un golofn yn unig, gweler y screenshot:
4. Ac yna cliciwch OK botwm, ac mae'r colofnau a ddewiswyd wedi'u huno i mewn i un golofn yn unig fel y dangosir y sgrinluniau canlynol:
Awgrymiadau: Ar ôl rhedeg y VBA hwn, bydd data gwreiddiol yr ystod yn cael ei glirio, byddai'n well ichi eu copïo a'u cadw mewn lleoliad arall yn gyntaf.
Cyfuno colofnau lluosog i mewn i un rhestr gyda Kutools ar gyfer Excel
Os ydych chi wedi gosod Kutools ar gyfer Excel, ei Trawsnewid Ystod gall cyfleustodau eich helpu i gyfuno colofnau lluosog yn un golofn sengl neu res sengl.
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 data colofnau rydych chi am eu cyfuno i mewn i un rhestr.
2. Yna cliciwch Kutools > Ystod > Trawsnewid Ystod, gweler y screenshot:
3. Yn y Trawsnewid Ystod blwch deialog, dewiswch Ystod i golofn sengl opsiwn, a chlicio Ok botwm, gweler y screenshot:
4. Yn y canlynol popped allan Trawsnewid Ystod blwch, cliciwch cell lle rydych chi am allbwn y canlyniad, gweler y screenshot:
5. Yna cliciwch OK botwm, mae'r colofnau a ddewiswyd gennych wedi'u cyfuno i mewn i un golofn sengl yn y lleoliad penodedig yr oeddech yn dymuno. Gweler y screenshot:
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Cyfuno colofnau lluosog i mewn i un rhestr gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!