Excel'de hücreleri soldan sağa nasıl aktarabilirim?
Excel sayfasına değerler yazdığımızda, genellikle bunları soldan sağa yazıyoruz, ancak bazı durumlarda, aşağıda gösterilen ekran görüntüsü gibi soldan sağa ve sola olan hücreleri transpoze etmek isteyebilirsiniz. Excel'de sorunu hızla çözmenize yardımcı olabilecek yerleşik bir özellik yoktur, ancak bu makalede, size bir iyilik yapacak bazı püf noktaları sunacağım.
VBA ile hücreleri soldan sağa transpoze edin
Kutools for Excel ile hücreleri soldan sağa veya yukarıdan aşağıya aktarın
VBA ile hücreleri soldan sağa transpoze edin
Formüller olmadan hücreleri soldan sağa hızlıca değiştirmek için bir VBA kodu kullanabilirsiniz.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, aşağıdaki kodu boş komut dosyasına yapıştırın.
VBA: Soldan sağa transpoze edin
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. Basın F5 tuşuna bastığınızda, sırasını değiştirmek istediğiniz sütun harflerini girmeniz için bir iletişim kutusu açılır. Lütfen aşağıda gösterilen ekran görüntüsü gibi bu sütun harflerini virgülle ayırın.
4. tık OK. Şimdi seçim soldan sağa aktarıldı.
Kutools for Excel ile hücreleri soldan sağa veya yukarıdan aşağıya aktarın
Kutools for Excel yüklüyse, ihtiyacınız olan Dikey Aralık Çevirme ve Yatay Aralık Çevirme yardımcı programlarıyla hücreleri soldan sağa veya yukarıdan aşağıya hızlı bir şekilde aktarabilirsiniz.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın :(Şimdi Excel için Kutools'u Ücretsiz İndirin!)
Soldan sağa veya yukarıdan aşağıya transpoze etmek istediğiniz hücreleri seçin, Kutools > Aralık > Yatay Aralığı Çevir/Dikey Aralığı Çevir > Türkiye or Yalnızca değerleri çevir. Ekran görüntülerine bakın:
Yatay Aralığı Çevir> Tümü: |
Yatay Çevir> Yalnızca çevirme değerleri: |
Dikey Aralığı Çevir> Tümü: |
Dikey Aralığı Çevir> Yalnızca çevirme değerleri:
|
Verileri Çevir
İlginizi çekebilir:
- Excel'de otomatik doldurma / sağda referansı nasıl değiştirebilirim?
- Excel'de değerler nasıl aktarılır ve bağlanır?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!