Conas liosta seoltaí a thrasuí go tapa ó shraitheanna go colúin in Excel?
Mar shampla, tá liosta amháin ann in éineacht le hainmneacha agus seoltaí, agus ní mór duit an liosta a thiontú go colúin mar atá thíos an pictiúr a thaispeántar. Níl aon fheidhm ionsuite in Excel chun é a láimhseáil, ach, san alt seo, is féidir liom roinnt cleasanna a thabhairt isteach chun é seo a réiteach go tapa.
Liosta seoltaí a thrasuí le VBA
Liosta seoltaí le Kutools a aistriú le haghaidh Excel
Liosta seoltaí a thrasuí le VBA
Chun liosta seoltaí a thrasuí ó shraitheanna go colúin, is féidir leat cód VBA a chur i bhfeidhm.
1. Cumasaigh an bhileog ina bhfuil sonraí a theastaíonn uait a thrasuí, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh faoi bhun macra-chód chuig an Modúil. Féach an pictiúr:
VBA: Liosta seoltaí a thrasuí
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. Brúigh F5 eochair chun an cód a rith, agus tagann dialóg amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú. Féach an pictiúr:
4. cliceáil OK, ansin sa chéad dialóg popping eile, roghnaigh cill chun an toradh trasuite a chur. Féach an pictiúr:
5. cliceáil OK. Anois tá an liosta aonair curtha isteach i gcolúin.
Liosta seoltaí le Kutools a aistriú le haghaidh Excel
Má tá tú Kutools le haghaidh Excel, is féidir leat an Raon Trasfhoirmigh gné chun liosta seoltaí a thrasuí go colúin go tapa.
| Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil: Download Kutools Íoslódáil saor in aisce do Excel Anois!)
1. Roghnaigh na sonraí a theastaíonn uait a thrasuí, cliceáil Kutools > Raon > Raon Trasfhoirmigh. Féach an pictiúr:
2. Sa dialóg popping amach, seiceáil Colún aonair le raon rogha i Cineál a athrú alt, agus seiceáil Luach seasta rogha agus clóscríobh an uimhir atá uait sa bhosca téacs ceart. Féach an pictiúr:
3. cliceáil Ok, agus roghnaigh cill chun an toradh a aschur. Féach an pictiúr:
4. cliceáil OK. Tá an liosta seoltaí aistrithe.
Demo
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
