WPS 2019 How To Create New Sheets For Each Row In Excel?

Posted onelikeone

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了WPS 2019 How To Create New Sheets For Each Row In Excel?相关的知识,希望对你有一定的参考价值。

https://www.extendoffice.com/documents/excel/3197-excel-create-new-sheet-for-each-row.html  How To Create New Sheets For Each Row In Excel?

 

 

 一、create new sheet for each row based on column 

案例介绍:

技术分享图片

 

VBA code: create new sheet for each row based on column

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

 

1. 开发工具 -- VB编辑器

技术分享图片

 

2. 插入 -- 模块

技术分享图片

 

3. 运行代码

技术分享图片

 

4. 运行后的效果:

自动新建sheet页:

技术分享图片

 

各个sheet页数据:

技术分享图片

 

技术分享图片

 

 技术分享图片

 

以上是关于WPS 2019 How To Create New Sheets For Each Row In Excel?的主要内容,如果未能解决你的问题,请参考以下文章

How to use pthread_create && mutex?

How to create an rpm package

How to Create Triggers in MySQL

[转]nopCommerce Widgets and How to Create One

[转]SQL - Create XML - How to set Unicode UTF-8

How to create a test plan