Sut i symud pob rhes arall i golofn yn Excel
A ydych erioed wedi ceisio symud pob data rhes arall i golofn yn Excel, fel symud pob rhes od i un golofn, a phob rhes hyd yn oed i'r golofn arall, a ddangosir fel isod y screenshot. Yma rwy'n dod o hyd i rai triciau a all drin y broblem hon.
Symudwch bob rhes arall i golofn gyda fformiwla
Symudwch bob rhes arall i golofn gyda VBA
Symudwch bob rhes arall i golofn gyda Kutools for Excel
Symudwch bob rhes arall i golofn gyda fformiwla
I'r rhan fwyaf o ddefnyddwyr Excel, defnyddio fformiwla i ddatrys problem yn Excel yw'r ffordd hawsaf.
1. Dewiswch gell wrth ymyl eich data, a theipiwch y fformiwla hon = OS (ISEVEN (ROW (B2)), B2, "") (Mae B2 yn nodi'r data rydych chi am ei gael) i mewn iddo, a gwasgwch Rhowch allwedd yna llusgwch y llenwad auto i lenwi'r ystod rydych chi ei eisiau gan ddefnyddio'r fformiwla hon. Nawr mae pob data ail reng wedi'i sicrhau yn y golofn hon.
2. Yna dewiswch y gell arall wrth ymyl y golofn uchod, a theipiwch y fformiwla hon = OS (ISODD (ROW (B3)), B3, "") (B3 yw'r data rydych chi am ei gael) i mewn iddo, a gwasgwch Rhowch allwedd yna llusgwch y llenwad auto i lenwi'r ystod rydych chi ei eisiau gan ddefnyddio'r fformiwla hon. Nawr mae pob data trydydd rhes wedi'i sicrhau yn y golofn hon.
Symudwch bob rhes arall i golofn gyda VBA
Gall y VBA canlynol hefyd symud pob rhes arall i golofn.
1. Gwasgwch F11 + Alt allweddi gyda'i gilydd ar y bysellfwrdd i agor y M.icrosoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna cliciwch Mewnosod > Modiwlau i fewnosod ffenestr modiwl newydd. Ac yna copïwch y cod VBA dilynwch i'r ffenestr.
VBA: Symudwch bob rhes arall i'r golofn.
Sub MoveRange()
'Updateby20140730A
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)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. Cliciwch Run botwm neu F5 allwedd ar y bysellfwrdd, ac mae deialog yn galw allan i chi ddewis ystod i'w symud. Gweler y screenshot:
4. Yna cliciwch OK i ddangos y dialog arall i ddewis cell i allbwn y canlyniad. Gweler y screenshot:
5. Cliciwch OK, a gallwch weld y canlyniad a ddangosir isod:
Symudwch bob rhes arall i golofn gyda Kutools for Excel
Ar wahân i fformiwlâu a VBA, os ydych chi wedi gosod Kutools for Excel, gallwch ddefnyddio ei Trawsnewid Ystod nodwedd i symud pob rhes arall i'r golofn yn gyflym.
Kutools for Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now
1. Dewiswch yr ystod rydych chi am symud bob rhes arall, a chlicio Kutools > Troswr Ystod > Trawsnewid Ystod. Gweler y screenshot:
2. Yn y Trawsnewid Ystod deialog, gwirio Colofn sengl i amrediad in Trawsnewid Math adran, a gwirio Gwerth sefydlog yna dewiswch neu nodwch 2 yn y rhestr yn Rhesi y cofnod adran. Gweler y screenshot:
3. Cliciwch Ok i agor deialog i ddewis cell sengl i roi'r canlyniad allan, gweler y screenshot:
4. Yna cliciwch OK. Gallwch weld y canlyniad fel y dangosir isod:
I gael mwy o wybodaeth am Transform Range.
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
