Note: The other languages of the website are Google-translated. Back to English

Excel'deki sütuna göre verileri birden çok çalışma sayfasına nasıl bölebilirim?

Büyük veri satırları içeren bir çalışma sayfanız olduğunu varsayarsak ve şimdi, verileri aşağıdakilere göre birden çok çalışma sayfasına bölmeniz gerekir. İsim-Soyisim sütun (aşağıdaki ekran görüntüsüne bakın) ve isimler rastgele girilir. Belki önce bunları sıralayabilir ve sonra bunları birer birer kopyalayıp diğer yeni çalışma sayfalarına yapıştırabilirsiniz. Ancak bu, tekrar tekrar kopyalayıp yapıştırmak için sabrınıza ihtiyaç duyacaktır. Bugün, bu görevi çözmek için bazı hızlı püf noktalarından bahsedeceğim.

doc verileri sütun 1'e böl

Verileri VBA kodlu sütuna göre birden çok çalışma sayfasına bölün

Kutools for Excel ile verileri sütuna göre birden çok çalışma sayfasına bölün


Verileri VBA kodlu sütuna göre birden çok çalışma sayfasına bölün

Verileri sütun değerine göre hızlı ve otomatik olarak bölmek istiyorsanız, aşağıdaki VBA kodu iyi bir seçimdir. Lütfen şunu yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

Sub Splitdatabycol()
'updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
Dim xWS As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. Daha sonra, tuşuna basın. F5 kodu çalıştırmak için anahtar ve başlık satırını seçmenizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:

doc verileri sütun 7'e böl

4. Ve sonra tıklayın OK düğmesi ve ikinci komut kutusunda, lütfen bölmek istediğiniz sütun verilerini seçin, ekran görüntüsüne bakın:

doc verileri sütun 8'e böl

5. Daha sonra, OKve etkin çalışma sayfasındaki tüm veriler sütun değerine göre birden çok çalışma sayfasına bölünür. Ve bölünmüş çalışma sayfaları bölünmüş hücre isimleriyle adlandırılır. Ekran görüntüsüne bakın:

doc verileri sütun 2'e böl

not: Bölünmüş çalışma sayfaları, ana çalışma sayfasının bulunduğu çalışma kitabının sonuna yerleştirilir.


Kutools for Excel ile verileri sütuna göre birden çok çalışma sayfasına bölün

Bir Excel acemi olarak, bu uzun VBA kodu bizim için biraz zor ve çoğumuz kodu ihtiyacımız olarak nasıl değiştireceğimizi bile bilmiyoruz. Burada size çok işlevli bir araç tanıtacağım.Kutools for Excelonun Veriyi Böl yardımcı program yalnızca verileri sütuna göre birden çok çalışma sayfasına bölmenize yardımcı olmakla kalmaz, aynı zamanda verileri satır sayısına göre bölebilir.

Not:Bunu uygulamak için Veriyi Bölöncelikle Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Bölmek istediğiniz veri aralığını seçin.

2. tıklayın Kutools Artı > Çalışma Sayfası > Veriyi Böl, ekran görüntüsüne bakın:

doc verileri sütun 3'e böl

3. In Verileri Birden Çok Çalışma Sayfasına Bölme iletişim kutusu, yapmanız gerekenler:

1). Seçiniz Belirli sütun seçeneği Şuna göre böl bölümünü açın ve açılır listeden verileri bölmek istediğiniz sütun değerini seçin. (Verilerinizin başlıkları varsa ve bunları her yeni bölünmüş çalışma sayfasına eklemek istiyorsanız, lütfen kontrol edin Verilerimin başlıkları var seçeneği.)

2). Ardından, bölünmüş çalışma sayfası adlarını belirtebilirsiniz. Yeni çalışma sayfası adı bölümünde, çalışma sayfası adı kurallarını belirtin. kurallar açılır listeye ekleyebilirsin Önek or Sonek sayfa adları için de.

3). Tıkla OK buton. Ekran görüntüsüne bakın:

doc verileri sütun 4'e böl

4. Artık veriler yeni bir çalışma kitabında birden çok çalışma sayfasına bölünmüştür.

doc verileri sütun 5'e böl

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!


Kutools for Excel ile verileri sütuna göre birden çok çalışma sayfasına bölün

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Ücretsiz denemeyi şimdi indirin!


İlgili makale:

Verileri satır sayısına göre birden çok çalışma sayfasına nasıl bölebilirim?


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (299)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodlu sütuna dayalı olarak verileri birden çok çalışma sayfasına bölmek bazı hatalar gösteriyor. lütfen düzeltmeye çalışın ve aynısını güncelleyin. Örnek excel dosyaları verirseniz çok yardımcı olursunuz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, benim için çalışan kod için teşekkürler! Bir ana sayfayı tarihe göre birden çok sayfaya bölen bir kod bulmaya çalışıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu inanılmazdı! Bu işlemi yapmam bir saatten fazla sürerdi, ancak 30 saniye içinde yapıldı. Bunu VBA kitaplığım için saklayacağım. Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, çalışma sayfamda 30000 hücre var ve bunları aylara bölmem gerekiyor. daha hızlı yapmak için kullanabileceğim bir kod var mı? 8 sütunum var ve tarih sütun B. Verilen yukarıdaki kodla oynuyorum ama büyük zaman başarısız oluyor. Lütfen bana bu konuda yardımcı olur musunuz? Şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdaki hatayı alıyorum: Çalışma zamanı hatası '6' taşması Hata ayıklamadan sonra satırı göster For i = 2 To Ir Excel satırlarım 500,000'in üzerinde. Herhangi bir çözüm var mı Kod için çok teşekkür ederim. Saygılarımla
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kod için çok teşekkür ederim. Aşağıdaki hatayı alıyorum: Çalışma zamanı hatası '6' satırında taşma For i = 2 To Ir Bunun için herhangi bir çözüm. Teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Referans isterken F5 - GoTo Box'a bastığımda bir hata alıyorum?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA süreci mükemmel çalıştı, uzmanlığınızı paylaştığınız ve bana çok zaman kazandırdığınız için çok teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu mükemmel çalıştı. Sayfa1'de değişiklikler yapıldığından sayfaları güncellemiyor gibi görünüyor. Yardım lütfen.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, benim için çalışan kod için teşekkürler! Sadece iki sorum/yorumum var. 1 kopyalanan veriler, orijinal dosyanın düzenini içermez. Otomatik filtre ile verileri tablo olarak kopyalamak mümkün müdür? 2 kopyalanan veriler başlık aralığına bağlı görünmüyor. Belirli bir aralık veya tablo adı için kodu ayarlamak mümkün müdür? Bu ayarlamalar çok yardımcı olacaktır. Saygılarımla, Pieter
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tıkır tıkır çalışıyor! Teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Cazibe gibi çalışıyor... Premium kod için teşekkürler... :lol:
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler, bu harika çalıştı. Ancak, her sekmedeki verilerin yeniden sıralanmasını istersem (anter sütununu kullanarak) ne olur? Temel olarak, bu VBA onu sekmelere ayırır, ancak daha fazla bölünmesini isteyebilirim .. bu mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Jonathan, Eski yorum biliyorum ama gelecekte başkaları için yardımcı olabilir: Bunu yapmam gerekiyordu ama VBA ile kolay bir yol bulamadım. Ancak, E-Tablonuzda 2'nin birleşimi olarak yeni bir Sütun yaparsanız, örneğin =A1&" "&A2 Bu, size her iki bilgi kümesiyle birlikte 1 Hücre verir. Daha sonra yukarıdaki modülü çalıştırabilirsiniz ve iyi çalışıyor! Düzenleme - Sütunlardaki verilerin 30 Karakterden kısa olması gerekir, aksi takdirde veriler kopyalanmaz (Modülde bir hata olarak gösterilir) ve yeni E-Tablolarınızın ortasında boş bir sayfa alırsınız.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Müthiş.. Bu çok etkileyiciydi. Bu problemle çok uzun zamandır mücadele ediyordum ve bu kod bir soluklanma olarak geldi. Paylaştığın için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika. Gönderdiğiniz için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod, daha küçük bir veri için bir cazibe gibi çalıştı (1200 satırdan az). Daha büyük çalışma sayfasında (17000 satır) kullanmaya çalıştım ve 10-12 sayfaya böldükten sonra çöktü. Bu yüzden orijinal verileri 3 farklı çalışma kitabına bölmeye çalıştık ve yine de bizi kapattık. Windows 7'ye sahibiz ve bilgisayarlarımız da o kadar yavaş değil. Bu kodu güvenli bir şekilde kullanmak için veriler üzerinde herhangi bir sınırlı satır öneriyor musunuz? Her türlü önerinize açığız.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod, daha küçük bir veri için bir cazibe gibi çalıştı (1200 satırdan az). Daha büyük çalışma sayfasında (17000 satır) kullanmaya çalıştım ve 10-12 sayfaya böldükten sonra çöktü. Bu yüzden orijinal verileri 3 farklı çalışma kitabına bölmeye çalıştık ve yine de bizi kapattık. Windows 7'ye sahibiz ve bilgisayarlarımız da o kadar yavaş değil. Bu kodu güvenli bir şekilde kullanmak için veriler üzerinde herhangi bir sınırlı satır öneriyor musunuz? Her türlü önerinize açığız. Emin olmadığım şey şudur: Makronun destekleyebileceği maksimum satır sayısı nedir? Onunla biraz oynayabilirim... 20k ile 40k arasında bir yerde![/quote]
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sorunla karşı karşıya. Kod, verilerin daha az satır olduğu sayfalar için çalışır, ancak daha büyük veriler için "Excel bu görevi mevcut kaynaklarla tamamlayamaz. Daha az veri seçin veya diğer uygulamaları kapatın" (aynı anda çalışan başka bir uygulama yoktur) şeklinde hata gösterir. daha küçük bir veri için bir cazibe gibi çalıştı (1200 satırdan az). Daha büyük çalışma sayfasında (17000 satır) kullanmaya çalıştım ve 10-12 sayfaya böldükten sonra çöktü. Bu yüzden orijinal verileri 3 farklı çalışma kitabına bölmeye çalıştık ve yine de bizi kapattık. Windows 7'ye sahibiz ve bilgisayarlarımız da o kadar yavaş değil. Bu kodu güvenli bir şekilde kullanmak için veriler üzerinde herhangi bir sınırlı satır öneriyor musunuz? Her türlü önerinize açığız.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sen benim tüm zamanların kahramanımsın! Şanssız aylarca bunun için avlandım. Bu haftalık/aylık kırma raporlarını 147+ çalışma sayfasına yapmam gerekiyor ve beni kutool almayacaklar. Bu notta .. Gerçekten kodlamayı öğrenmem gerekiyor. :( Ama teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, 65000 Kayıtlı ve 8 farklı vakaya sahip bir sayfam var, bu yüzden temelde 80 farklı sayfa oluşturması gerekiyor. Bu kodu çalıştırmayı denedim, ancak Runtime Error 6 Overflow'u veriyor. Bu kod, sorunumu çözmek için ince ayar yapılabilir mi? Lütfen yardımınız çok takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]HI , 65000 Kayıtlı ve 8 farklı vakaya sahip bir sayfam var, bu yüzden temel olarak 80 farklı sayfa oluşturması gerekiyor. Bu kodu çalıştırmayı denedim, ancak Runtime Error 6 Overflow'u veriyor. Bu kod, sorunumu çözmek için ince ayar yapılabilir mi? Lütfen yardımınız çok takdir edilecektir.ACE tarafından[/quote] Dim vcol, i As Integer öğesini Dim vcol, i As Long olarak değiştirmeyi deneyin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, DIM vcol'u LONg olarak değiştirmeyi denedim ve iyi çalışıyordu ancak aniden bir hata nedeniyle bu eylemi tamamlamak için yeterli bellek yok, daha az veri kullanmayı veya diğer uygulamaları kapatmayı deneyin. Açık olan başka bir uygulamam olmamasına rağmen. 100 k'dan biraz fazla satır ve yakl. 16mb dosya boyutu. herhangi bir yardım takdir edilecektir. teşekkürler Mustafa
Bu yorum sitedeki moderatör tarafından en aza indirildi
Müthiş kod parçası - mükemmel çalışır (değişkenleri elektronik tablonuzun ihtiyacı olanla değiştirirseniz)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değişken sayıda satır içeren bir sayfam var. Sütunlardan biri 2010'dan sonraki tarihlerdir. Diğer sütunlar, tarihe karşı her bir fon için NAV verilerini içeren fon adlarıdır. Bu yüzden sütunları farklı sayfalara bölmek istemiyorum, her bir FON ADI, günlük tarihler değil, Ay Sonu tarihine göre NAV verileriyle kendi sayfasına bölmek istiyorum. Bu yapılabilir mi yoksa bu imkansız mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kullandığım bir çalışma sayfam var ve bir hesap adını yeniden tanımlayacak ve özel satırı yeni bir çalışma kitabına ve aynı ada sahip sayfaya kopyalayacak bir vba kodu bulmaya çalışıyorum yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika! VBA kodu çalışıyor, teşekkürler! Bu çıktı çalışma sayfalarının çalışma sayfaları yerine bireysel excel dosyalarında olmasına ihtiyacım var ve birçok çalışma sayfasına böldüğümde hata oluyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Starscor ve Tim, dosyanın sayfalarını satır adlarını kullanarak birkaç dosyaya bölmek istiyorsanız, aynı web sayfasında bunu yapan küçük bir makro kodu var, sadece "Excel dosyalarını ayırmak için bir çalışma kitabını bölme" araması yapın. onu bulacak. Bu örneğin kodunu, yinelenen son alt ve alt tabii ki silerek bunun sonuna ekleyin ve her biri için bir dosya alacaksınız.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı çalışma kitabındaki farklı sayfalardaki sütunları aynı anda nasıl sıralayacağım ve aynı çalışma kitabında yaklaşık 65 sayfam olduğu için farklı sayfalardaki kopyaları nasıl kaldıracağım konusunda bana yardımcı olan var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok heyecan verici! Teşekkür ederim. Bir süredir bunun için arıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mükemmel - bunu paylaştığınız için teşekkür ederiz. Hatta vurguları/formatı yeni çalışma sayfalarına yayar!
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır