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

Sut i drosi colofnau i resi a mewnosod rhesi newydd i lenwi data yn Excel?

Yn yr erthygl hon, rwy'n cyflwyno cod VBA i drawsosod colofnau i resi a mewnosod rhesi newydd i lenwi data fel islaw'r screenshot a ddangosir, os oes gennych ddiddordeb yn y llawdriniaeth hon, ewch i isod i gael mwy o fanylion.
trawsosod doc mewnosod rhesi 1

Trawsosod a mewnosod rhesi gyda VBA


swigen dde glas saeth Trawsosod a mewnosod rhesi gyda VBA

Nid oes unrhyw ffordd uniongyrchol i drawsosod ystod a mewnosod rhesi i lenwi'r un data, ond yma gallaf gyflwyno cod VBA i ddatrys y dasg hon yn gyflym.

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god VBA i ffenestr y Modiwl. Gweler y screenshot:

VBA: Trawsosod a mewnosod rhesi.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

trawsosod doc mewnosod rhesi 2

3. Gwasgwch F5 allwedd i redeg y cod, ac yna dewiswch yr ystod ddata rydych chi am ei thrawsnewid a mewnosod rhesi yn y dialog popio. Gweler y screenshot:
trawsosod doc mewnosod rhesi 3

4. Cliciwch OK. Ac mae'r ystod a ddewiswyd wedi'i throsi fel isod sgrinlun a ddangosir.
trawsosod doc mewnosod rhesi 4

Nodyn: cyn rhedeg y cod, byddai'n well ichi arbed copi o'r data gwreiddiol.

Awgrym.Os ydych chi am drawsosod traws-fwrdd yn gyflym i restru tabl neu i'r gwrthwyneb, ceisiwch ddefnyddio'r Kutools ar gyfer Excel's Trawsosod Dimensiynau Tabl fel y dangosir yn y sgrin ganlynol. Mae'n swyddogaeth lawn heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.

doc trawsosod croes i'r rhestr

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 (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os daw gwybodaeth fy nghroesfwrdd o fformiwlâu, nid yw'r fformiwlâu hynny bob amser yn dilyn pan fydd y macro yn cael ei gymhwyso. Sut allwn i drwsio hyn i wneud yn siŵr bod y fformiwlâu yn cael eu cadw yn y celloedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch i chi am eich neges. Ar gyfer datrys eich problem, gallwch wneud cais Kutools ' Trosi Fformiwla i Testun cyn i chi redeg y macro, yna ar ôl trawsosod thetable, cymhwyso Kutools ' Trosi Testun i Fformiwla . Rhowch wybod os yw'n gweithio. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut byddwn i'n newid y cod VBA fel y bydd yn cadw mwy o'r colofnau yr un peth? er enghraifft yn lle bod y ddwy golofn gyntaf yn aros yr un peth, bydd y 4 cyntaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid wyf yn siŵr, efallai y gallwch geisio newid x = xRg(1, 1).Colofn + 2 i x = xRg(1, 1).Colofn + 4.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut alla i wneud i ddata 3 a 4 aros yn yr un golofn:


yr ymarfer cychwynnol yw:

Dosbarth1 | Enw | Nancy | Judy | Lili | Daniel
Dosbarth2 | Enw | Bruce | Uee | Perter | Daniel
Dosbarth3 | Enw | kate | Kelly | Wenddy | Daniel

Mae angen i mi ei thrawsosod fel hyn

Dosbarth1 | Enw | Nancy | Judy
Dosbarth1 | Enw | Lili | Daniel
Dosbarth 2 | Enw | Bruce | Uee
Dosbarth 2 | Enw | Perter | Daniel
Dosbarth3 | Enw | kate | Kelly
Dosbarth3 | Enw | Wenddy | Daniel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i drawsosod y data bob dwy gell

Yr ymarfer cychwynnol yw:


Dosbarth1 | Enw | Nancy | Judy | Lili | Daniel
Dosbarth2 | Enw | Bruce | Uee | Perter | Daniel
Dosbarth3 | Enw | kate | Kelly | Wenddy | Daniel

ac mae ei angen arnaf i edrych fel hyn:

Dosbarth1 | Enw | Nancy | Judy
Dosbarth1 | Enw | Lili | Daniel
Dosbarth 2 | Enw | Bruce | Uee
Dosbarth 2 | Enw | Perter | Daniel
Dosbarth3 | Enw | kate | Kelly
Dosbarth3 | Enw | Wenddy | Daniel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod uchod yn gweithio'n wych. Mae'n cadw'r ddwy golofn gyntaf. Sut byddwn i'n newid y cod fel ei fod yn cadw'r golofn gyntaf yn unig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall casglwrSyntax Error
Dim xRg Fel Ystod
Dim i Cyhyd, j Cyhyd, k Cyhyd
Dim x Cyhyd, y Cyhyd

Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir