Ana içeriğe atla

Excel'de bir satır veri sırasını hızlı bir şekilde nasıl çevirebilir / tersine çevirebilirim?

Bir satırın veri sırasını tersine çevirmeniz veya çevirmeniz gerektiğinde, bunu nasıl hızlı bir şekilde yapabilirsiniz? Normalde bunu yapmak için bir VBA kodu veya diğer Excel eklentileri kullanmanız gerekebilir çünkü Excel bu tür bir işlemi desteklemiyor. Ve işte aşağıdaki zorlu şeyler, Excel'de bir veri sırasını hızlıca çevirmenize veya tersine çevirmenize yardımcı olacak.

VBA ile satırlarda yatay olarak veri sırasını çevirin / ters çevirin

Kutools for Excel ile veri sırasını yatay olarak ters çevirin / ters çevirin



ok mavi sağ balon VBA ile satırlarda yatay olarak veri sırasını çevirin / ters çevirin

İşte düzgün bir VBA makrosu, veri sırasını yatay olarak satırlar halinde hızlıca çevirmenize / tersine çevirmenize yardımcı olabilir.

1. Adım: Tuşunu basılı tutun. Ara Toplam + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. Adım: Tıklayın Ekle > modülve aşağıdaki makroyu modülpencere.

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Adım: Tuşuna basın. F5 Bu makroyu çalıştırmak için bir anahtar ve çalışacağınız bir aralık seçmeniz için bir iletişim kutusu görüntülenir, ekran görüntüsüne bakın:

doc-ters-sıra8

4 Adım: Basın OK, sonucu aşağıda gösterildiği gibi görebilirsiniz:


ok mavi sağ balon Kutools for Excel ile veri sırasını yatay olarak ters çevirin / ters çevirin

İle Kutools for Excel'S Yatay Aralığı Çevir aracı ile, seçilen satırlarda hızlı bir şekilde veri sırasını yatay olarak çevirebilir / ters çevirebilirsiniz.

Kutools for Excel, 300'den fazla kullanışlı Excel aracı içerir. 30 gün içinde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

1. Adım: Verileri çevireceğiniz satırı seçin.

2. Adım: Tıkla Kutools > Aralık Dönüştürücü > Yatay Aralığı Çevir, ekran görüntüsüne bakın:

doc-ters-sıra-sıra3

Ardından, seçilen satırlarda tüm veri sırasının tersine çevrildiğini göreceksiniz.

doc-ters-sıra-sıra4
-1
doc-ters-sıra-sıra5

Tıkla Yatay Aralığı Çevir bu özellik hakkında daha fazla bilgi edinmek için.


İlgili makale:

Excel'de bir veri sırası sütununu dikey olarak çevirmek / tersine çevirmek nasıl?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations