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 a mewnosod rhesi gyda VBA
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
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:
4. Cliciwch OK. Ac mae'r ystod a ddewiswyd wedi'i throsi fel isod sgrinlun a ddangosir.
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!