İ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ə hər bir satır üçün yeni vərəqlər yaratmaq üçün necə?

Sütun A'daki bütün şagirdlərin adına bir hesablama masası verdiyinizi düşünürsünüz. İndi A sütununda bu adlara əsaslanan yeni cədvəllər yaratmaq və hər bir səhifəyə bir nadir tələbə məlumatı daxil etmək istəyir. Yoxsa sütundakı adını nəzərə almadan masanın hər bir sıra üçün yeni bir hesabatı yaradın. Bu yazıda bunu əldə etmək üçün üsullar əldə edəcəksiniz.

VBA kodu ilə hər bir satır üçün yeni vərəqlər yaradın

Excel üçün Kutools Split Data proqramı ilə hər bir satır üçün yeni forma yaradın


Asanlıqla hər satır üçün yeni vərəqlər yaradın və ya Excel-də xüsusi sütun dəyərinə əsasən:

Əgər Excel üçün Kutools, onun faydası - Split Məlumatlar xüsusi dövrə dəyərlərinə əsaslanaraq tez bir zamanda yeni cədvəllər yarada və ya Excel-də hər bir satır üçün yeni vərəqlər yaratmaqda kömək edə bilər. Ekran görüntüsünə baxın:

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 kodu ilə hər bir satır üçün yeni vərəqlər yaradın


Aşağıdakı kodlarla, sütun dəyərlərinə əsaslanan yeni hesabatı yarada və ya yalnız Excel-də hər bir satır üçün yeni vərəqlər yarada bilərsiniz.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Və sonra aşağıdakı kodu yapışdırıb Modules pəncərə.

VBA kodu: sütun əsasında hər bir satır üçün yeni bir hesabat yaradın

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Qeyd: A1: C1 sizin masanızın başlıq üçündür. Bunu ehtiyaclarınıza əsasən dəyişə bilərsiniz.

3. Basın F5 kodu açmaq üçün açar, sonra yeni iş səhifələri, mövcud iş kitabının bütün iş dəftərlərindən sonra ekran görüntüsü kimi yaradılır:

Birbaşa sütun dəyərini nəzərə almadan hər bir satır üçün yeni forma yaratmaq istəyirsinizsə, aşağıdakı kodu istifadə edə bilərsiniz.

VBA kodu: Doğrudan hər bir satır üçün yeni bir hesabat yaradın

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Kod işlədildikdən sonra, aktiv iş yerindəki hər satır yeni bir işə yerləşdiriləcəkdir.

Qeyd: Başlıq satırı da bu VBA kodu ilə yeni bir hesabatda yerləşdiriləcək.


Excel üçün Kutools Split Data proqramı ilə hər bir satır üçün yeni forma yaradın

Əslində yuxarıdakı üsul çətin və anlamaq çətindir. Bu bölmədə sizə təqdim edirik Split Məlumatlar faydası Excel üçün Kutools.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. Yeni vərəqlər yaratmaq üçün istifadə etmək üçün lazım olan cədvəlləri seçin və sonra basın Kutools Plus> Spit Data. Ekran görüntüsünə baxın:

2. İçində Birdən çox işə bölüşdürün dialoq qutusunu aşağıdakı kimi edin.

A. Sütun dəyərinə əsasən yeni çarxlar yaratmaq üçün:

1). Xahiş edirik seçin Xüsusi sütun seçimi və açılan siyahıdakı məlumatları bölüşdürmək istədiyiniz bir sütun seçin;

2). İş səhifələrini sütun dəyərləri ilə adlandırmaq istəyirsinizsə, seçin Sütun dəyərləri ci Qaydalar açılan siyahı;

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

B. hər bir satır üçün birbaşa yeni forma yaratmaq üçün:

1). Seçin Sabit satırlar Seçim nömrəsini daxil edin 1 qutuya daxil;

2). Seçin Row Nömrələr dən Qaydalar açılan siyahı;

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

daxilində bütün yeni vərəqlərlə yeni bir iş kitabı yaradılır. Aşağıdakı ekran görüntülərinə baxın.

Sütun dəyərinə əsasən hər bir satır üçün yeni vərəqlər yaradır:

Sütun dəyərini nəzərə almadan hər bir sıra üçün yeni hesabatı yaratmaq:

Excel üçün Kutools Split Data proqramı ilə hər bir satır üçün yeni forma yaradı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!



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.
    ComplianceHound · 2 months ago
    This is great code. Many thanks to brain-boxes at OfficeExtend !! Is there anyway this code could be slightly adapted to to create separate sheets for each *column* instead of row? I've attached a picture of what I'm trying to achieve. Is this possible? Kind regards.
  • To post as a guest, your comment is unpublished.
    Sam · 3 months ago
    Great code, but could I get some help if I my data is on column G instead of column A? what do I need to change to have the Column G data in different tab?

    Thanks
  • To post as a guest, your comment is unpublished.
    Michele · 5 months ago
    Hi, is there a way to keep the heading row on each new worksheet? (circled in red on my attachment)

    The code takes all the rows from my master worksheet and transfers them into new worksheets, which is great. But I want to keep my "master" header value (circled in red) at the top of each new worksheet. Thanks!



    I'm referring to this code from above:

    Sub RowToSheet()
    Dim xRow As Long
    Dim I As Long
    With ActiveSheet
    xRow = .Range("A" & Rows.Count).End(xlUp).Row
    For I = 1 To xRow
    Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
    .Rows(I).Copy Sheets("Row " & I).Range("A1")
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    BK TAN · 8 months ago
    Hello, I think there is something useful here for my situation, but I'm able to to do VBA or script, hope you can help.
    I have a template w/ many cells to fill with data, and there will be a search key (non unique) that I would like to enter into the template. Based on the search key, the data is searched and corresponding data on the matched key is fetched and filled into the template. The filled template is saved into a new worksheet. There maybe more than 1 match entries. I need the script to continue search down the list, until all matches are picked, and the certain number of new worksheets created.
  • To post as a guest, your comment is unpublished.
    Beatriz · 1 years ago
    Hello I tried to use your code but I get an error
    Run-timeerror '1004':
    Application-defined or object-defined error
    I have no knowledge of VBA (or any technology for that matter) but if a press debug it highlights line 11 xRCount=xSht.Cells(xSht.Rows.Count,1). End(xIUp).Row
    I am working with a large file that has 127 columns and 337 rows (rows will vary columns won't) and it is a list with I'd numbers and their details.
    I did change the range as you noted but still doesn't work I'm using Excel 2010 could you please tell me how to make it work if possible
    Thank you
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Beatriz,
      The code is updated with the problem solving. Please try it again. Thank you for your comment.