Sut i drawsosod rhestr cyfeiriadau yn gyflym o resi i golofnau yn Excel?
Er enghraifft, mae yna un rhestr wedi'i chyfuno ag enwau a chyfeiriadau, ac mae angen i chi drosi'r rhestr yn golofnau fel isod llun a ddangosir. Nid oes swyddogaeth adeiledig yn Excel i'w drin, ond, yn yr erthygl hon, gallaf gyflwyno rhai triciau ar ddatrys hyn yn gyflym.
Trosi rhestr cyfeiriadau gan VBA
Trawsosod rhestr cyfeiriadau gan Kutools ar gyfer Excel
Trosi rhestr cyfeiriadau gan VBA
I drawsosod rhestr cyfeiriadau o resi i golofnau, gallwch gymhwyso cod VBA.
1. Galluogi'r ddalen sy'n cynnwys data rydych chi am ei drawsosod, a'i wasgu Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god macro i'r Modiwlau. Gweler y screenshot:
VBA: Trosi rhestr cyfeiriadau
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei defnyddio. Gweler y screenshot:
4. Cliciwch OK, yna yn y dialog popio nesaf, dewiswch gell i osod y canlyniad a drawsosodwyd. Gweler y screenshot:
5. Cliciwch OK. Nawr mae'r rhestr sengl wedi'i thrawsnewid yn golofnau.
Trawsosod rhestr cyfeiriadau gan Kutools ar gyfer Excel
Os oes gennych Kutools ar gyfer Excel, gallwch gymhwyso'r Trawsnewid Ystod nodwedd i drawsnewid rhestr cyfeiriadau yn gyflym i golofnau.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod: (Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)
1. Dewiswch y data rydych chi am ei drawsosod, cliciwch Kutools > Ystod > Trawsnewid Ystod. Gweler y screenshot:
2. Yn y dialog popping out, gwiriwch Colofn sengl i amrediad opsiwn i mewn Trawsnewid math adran, a gwirio Gwerth sefydlog opsiwn a theipiwch y rhif sydd ei angen arnoch yn y blwch testun cywir. Gweler y screenshot:
3. Cliciwch Ok, a dewis cell i allbwn y canlyniad. Gweler y screenshot:
4. Cliciwch OK. Mae'r rhestr cyfeiriadau wedi'i throsi.
Demo
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!