Kako prenesti celice od leve proti desni v Excelu?
Ko vtipkamo vrednosti v Excelovem listu, jih ponavadi vtipkamo od leve proti desni, v nekaterih primerih pa boste morda želeli prenesti celice od leve proti desni na desno na levo, kot je prikazano spodaj. V Excelu ni vgrajene funkcije, ki bi vam lahko pomagala, da jo hitro rešite, vendar v tem članku predstavljam nekaj trikov, s katerimi vam naredite uslugo.
Prenesite celice od leve proti desni z VBA
Prenesite celice od leve proti desni ali od zgoraj navzdol s programom Kutools za Excel
Prenesite celice od leve proti desni z VBA
Če želite hitro prenesti celice od leve proti desni brez formul, lahko uporabite kodo VBA.
1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli, prilepite spodnjo kodo v prazen skript.
VBA: Prenos levo v desno
Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
Dim strTemp As String
On Error Resume Next
strTemp = Application.InputBox _
(Prompt:="Enter the column you want to transpose with comma separate", _
Title:="Kutools For Excel", Type:=2)
For i = Len(strTemp) To 1 Step -1
NewOrder = NewOrder + Mid(strTemp, i, 1)
Next i
LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
Letters = Split(NewOrder, ",")
ReDim NewLetters(1 To UBound(Letters) + 1)
Application.ScreenUpdating = False
For xLng = 0 To UBound(Letters)
NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
Next
Application.ScreenUpdating = True
Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub
3. Pritisnite F5 tipko za zagon kode, odpre se pogovorno okno za vnos črk stolpcev, ki jih želite prenesti. Prosimo, ločite te črke stolpcev z vejico, kot je prikazano spodaj.
4. klik OK. Zdaj je bil izbor prestavljen od leve proti desni.
Prenesite celice od leve proti desni ali od zgoraj navzdol s programom Kutools za Excel
Če imate nameščen Kutools za Excel, lahko s svojimi pripomočki Flip Vertical Range in Flip Horizontal Range hitro prestavite celice od leve proti desni ali od zgoraj navzdol.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
Po namestitvi Kutools za Excel, naredite spodaj :(Brezplačno prenesite Kutools za Excel zdaj!)
Izberite celice, ki jih želite prenesti, levo v desno ali gor navzdol, kliknite Kutools > Območje > Obrnite vodoravni razpon/Navpični navpični razpon > vsi or Samo flip vrednosti. Oglejte si posnetke zaslona:
Flip Horizontal Range> Vse: |
Flip Horizontal> Samo flip values: |
Preklopi navpični obseg> Vse: |
Navpični obseg flip> Samo flip vrednosti:
|
Preklopi podatke
Morda vas zanima:
- Kako prenesti referenco med samodejnim izpolnjevanjem navzdol / desno v Excelu?
- Kako prenesti in povezati vrednosti v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!