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

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.
doc yn trosi rhestr cyfeiriadau 1

Trosi rhestr cyfeiriadau gan VBA

Trosi rhestr cyfeiriadau gan Kutools ar gyfer Excelsyniad da3


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

doc yn trosi rhestr cyfeiriadau 2

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:
doc yn trosi rhestr cyfeiriadau 3

4. Cliciwch OK, yna yn y dialog popio nesaf, dewiswch gell i osod y canlyniad a drawsosodwyd. Gweler y screenshot:
doc yn trosi rhestr cyfeiriadau 4

5. Cliciwch OK. Nawr mae'r rhestr sengl wedi'i thrawsnewid yn golofnau.
doc yn trosi rhestr cyfeiriadau 1


Trosi 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 y nodir isod: (Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Dewiswch y data rydych chi am ei drawsosod, cliciwch Kutools > Ystod > Trawsnewid Ystod. Gweler y screenshot:
doc yn trosi rhestr cyfeiriadau 5

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:
doc yn trosi rhestr cyfeiriadau 6

3. Cliciwch Ok, a dewis cell i allbwn y canlyniad. Gweler y screenshot:
doc yn trosi rhestr cyfeiriadau 7

4. Cliciwch OK. Mae'r rhestr cyfeiriadau wedi'i throsi.
doc yn trosi rhestr cyfeiriadau 1


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 (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir