İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də sütun əsasında verilənləri birdən çox səhifəyə bölmək necə?

Sizdə böyük məlumat satırları olan bir iş var və indi, məlumatları birdən çox iş səhifəsinə bölməlisiniz. ad sütun (aşağıdakı ekran görünüşünə baxın) və adlar təsadüfi olaraq daxil edilir. Bəlkə ilk növbədə onları düzəldə bilərsiniz və sonra onları bir-birindən digər yeni iş yerlərinə kopyalayıb yapışdırın. Lakin bu, təkrarlanan surəti və yapışdırmaq üçün səbir lazımdır. Bu gün bu işi həll etmək üçün bəzi sürətli fəndlər haqqında danışacağam.

1 sütunları ilə doc split məlumatları

VBA koduyla sütun əsasında verilənləri birdən çox işə bölün

Excel üçün Kutools ilə sütun əsasında verilənləri birdən çox işə bölün


Bir neçə iş səhifəsində iş sütununda və ya işdə hesablanan satırlara əsaslanan məlumatları bölüşdürün:

Böyük bir iş səhifəsini xüsusi sütun məlumatlarına və ya satır sayına əsasən birdən çox təbəqəyə bölmək istəyirsinizsə, Excel üçün Kutools's Split Məlumatlar xüsusiyyət bu işi tez və asanlıqla həll etməyə kömək edə bilər.

6 sütunları ilə doc split məlumatları

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA koduyla sütun əsasında verilənləri birdən çox işə bölün


Məlumatları tez və avtomatik olaraq sütun dəyərinə görə bölmək istəyirsinizsə, aşağıdakı VBA kodu yaxşı seçimdir. Xahiş edirik bunu edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

Sub Splitdatabycol()
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
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
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").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. Sonra basın F5 kodu açmaq üçün düyməni basın və başlıq satırını seçməyi xatırlatmaq üçün sorğu qutusu açılır, ekran görüntüsünə baxın:

7 sütunları ilə doc split məlumatları

4. Və sonra basın OK düyməsini basın və ikinci sifariş qutusuna görə bölünmək istədiyiniz sütun məlumatlarını seçin, ekran görünüşünə baxın:

8 sütunları ilə doc split məlumatları

5. Sonra basın OKaktiv iş yerindəki bütün məlumatlar sütun dəyərinə görə bir neçə iş səhifəsinə bölünür. Ayrılmış iş səhifələri split hüceyrə adları ilə adlandırılır. Ekran görüntüsünə baxın:

2 sütunları ilə doc split məlumatları

Qeyd: Ayrılmış iş səhifələri ana iş yerinin olduğu iş kitabının sonunda yerləşdirilir.


Excel üçün Kutools ilə sütun əsasında verilənləri birdən çox işə bölün

Bir Excel başlanğıcı olaraq, bu uzun VBA kodu bizim üçün bir az çətindir və əksəriyyətimiz kodun ehtiyacımıza necə dəyişdirilməsini bilmirlər.

Burada, mənə çoxfunksiyalı bir vasitə təqdim edəcəyəm -Excel üçün Kutools, onun Split Məlumatlar kommunal sütun əsasında bir neçə iş səhifəsinə bölüşdürməyə kömək edə bilər, həm də sətir sayına görə məlumatları bölüşdürə bilər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Əgər quraşdırılmış varsa Excel üçün Kutoolsxahiş edirəm:

1. Ayrılmaq istədiyiniz məlumatların çeşidini seçin.

2. Basın Kutools Plus > İş > Split Məlumatlar, bax ekran görüntüsü:

3 sütunları ilə doc split məlumatları

3. İçində Birdən çox işə bölüşdürün informasiya qutusuna ehtiyacınız var:

1). Seçin Xüsusi sütun seçimi Split əsasında bölməsini açın və açılır siyahıda olan məlumatları bölmək istədiyiniz sütun dəyərini seçin. (Verileriniz başlıqlara malikdirsə və onları hər bir yeni split iş kitabına daxil etmək istəyirsinizsə, xahiş olunur Məlumatlarım başlıqlara malikdir seçimi.)

2). Sonra split iş səhifəsinin adlarını, altında müəyyən edə bilərsiniz Yeni işlərin adı bölməsində, iş səhifəsi adlarının qaydalarını göstərin Qaydalar açılan siyahıdan əlavə edə bilərsiniz Prefiks or son şəkilçi hesabatı adları üçün də.

3). Tıklayınız OK düyməsini basın. Ekran görüntüsünə baxın:

4 sütunları ilə doc split məlumatları

4. İndi məlumatlar yeni bir iş kitabında bir neçə işə bölünür.

5 sütunları ilə doc split məlumatları

Excel üçün Kutools və pulsuz sınaq versiyasını yükləyin.


Excel üçün Kutools ilə sütun əsasında verilənləri birdən çox işə bölün

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!


Əlaqədar məqalə:

Satır sayıları ilə bir neçə iş səhifəsinə məlumatları necə bölmək olar?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Matt Carrington · 7 months ago
    Hi, great time saver, thanks. I know it is an old post but hopefully someone can help.

    My table needs splitting based on column 1, but column 1 contains dates and the result is that each new sheet doesnt contain any data. It creates the right amount of sheets but doesnt move any data. Any Ideas?
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hello, Carrington,
      To split the data based on the date column, you should use the following vba code, but, this code is only applied to date column correctly, if your key column is normal data, please use the code in this article.
      Sub parseData_Date()
      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 xName As String
      Dim xValue As String
      Dim xArrFind As Variant
      Dim xStrReplace As String
      Dim xFNum As Integer
      Dim xRg As Range
      Set ws = Sheets("Master sheet")
      xArrFind = Array(":", "\", "/", "?", "*", "[", "]")
      xStrReplace = "_"
      vcol = 1
      lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
      title = "A1:C1"
      titlerow = ws.Range(title).Cells(1).Row
      icol = ws.Columns.Count
      ws.Cells(1, icol) = "Unique"
      On Error Resume Next
      For i = 2 To lr
      If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
      Set xRg = ws.Cells(i, vcol)
      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)
      xValue = ""
      xValue = myarr(i)
      xValue = FormatDateTime(xValue)
      xName = xValue
      For xFNum = 0 To UBound(xArrFind)
      xName = Replace(xName, xArrFind(xFNum), xStrReplace)
      Next xFNum
      ws.Range(title).AutoFilter field:=vcol, Criteria1:=xValue & ""
      If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
      Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = xName & ""
      Else
      Sheets(xName & "").Move After:=Worksheets(Worksheets.Count)
      End If
      ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(xName & "").Range("A1")
      Sheets(xName & "").Columns.AutoFit
      Next
      ws.AutoFilterMode = False
      ws.Activate
      End Sub

      Please try it, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Angie · 7 months ago
    Thank you!!!
  • To post as a guest, your comment is unpublished.
    Bernarda · 8 months ago
    Hola, me sirvio el formato pero querría que lo que se copie en cada solapa nueva lleve también la formula de la base. Cómo podría hacer?
  • To post as a guest, your comment is unpublished.
    snow-raven · 8 months ago
    Easiest bit of code stealing I've ever done. Thank you for sharing this incredible tool!
  • To post as a guest, your comment is unpublished.
    Kriti · 8 months ago
    I have my tittle from A1 to X3, I updated title in code but still getting only one row in title.