Ana içeriğe atla

Sınırlayıcıya göre nasıl bölünür ve Excel'de hücreler nasıl değiştirilir?

Bu makalede, bir aralığı belirli sınırlayıcıya göre bölmenin ve ardından aşağıda gösterilen ekran görüntüsü gibi Excel'e aktarmanın yollarını tanıtıyorum. Bu görevle ilgileniyorsanız, lütfen aşağıdaki ayrıntılara gidin.
doc spliy devrik 1

VBA ile bölün ve aktarın

Kutools for Excel ile bölün ve aktarın


ok mavi sağ balon VBA ile bölün ve aktarın

Verileri belirli bir sınırlayıcıyla bölmenin ve aktarmanın doğrudan bir yolu yoktur, ancak bu sorunu hızlı bir şekilde çözmenize yardımcı olacak bir VBA kodu ekleyebilirim.

1. Basın Alt + F11 görüntüleme tuşları Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modülve aşağıdaki kodu yenisine yapıştırın modül pencere.

VBA: Böl ve Değiştir

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Basın F5 tuşuna bastığınızda, bölmek ve sırasını değiştirmek için bir aralık seçmeniz için bir iletişim kutusu açılır.
doc spliy devrik 2

4. tık OK. Verileri yerleştirmek üzere bir konum seçmek için bir iletişim kutusu açılır.
doc spliy devrik 3

5. tık OKve seçim bölünmüş ve virgülle değiştirilmiştir.
doc spliy devrik 4

Not: koddaki virgül strTxt & "," ve ary = Böl(strTxt, ",") Verileri temel alarak böleceğiniz sınırlayıcıdır, bunları istediğiniz gibi değiştirebilirsiniz.


ok mavi sağ balon Kutools for Excel ile bölün ve aktarın

İle Kutools for Exceluygulayabilirsiniz Bölünmüş hücreler öncelikle hücreleri ayırıcıya göre bölmek ve ardından Aralığı Dönüştür Hücreleri bir sütuna dönüştürmek için yardımcı program.

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!)

1. Bölmek istediğiniz hücreleri seçin ve Kutools > Birleştir ve Böl > Bölünmüş hücreler. Ekran görüntüsüne bakın:
doc spliy devrik 5

2. içinde Bölünmüş hücreler iletişim, kontrol et Sütunlara Böl seçeneğini seçin, ardından ayırmak istediğiniz sınırlayıcıyı belirtin, tıklayın Ok. Ve sonucu ikinciye yerleştirmek için boş bir hücre seçin Bölünmüş hücreler iletişim. Ekran görüntüsüne bakın:
doc spliy devrik 6

3. tık OK, ardından hücreler sütunlara bölünür ve ardından Kutools > Aralık > Aralığı Dönüştür. Ekran görüntüsüne bakın:
doc spliy devrik 7

4. içinde Aralığı Dönüştür iletişim, kontrol et Tek sütun aralığıtık Okve sonucu yerleştirmek için bir hücre seçin. Ekran görüntüsüne bakın:
doc spliy devrik 8

5. tık OK, şimdi aralık tek bir sütuna aktarıldı.
doc spliy devrik 9

İpucu. Ücretsiz deneme sürümüne sahip olmak istiyorsanız Bölünmüş hücreler ve Aralığı Dönüştür fonksiyonları, lütfen ücretsiz gidin Kutools for Excel'i deneyin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.

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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations