中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

• Cells(2,3) //表示兩行三列的單元格
• Range(“a1”).offset(1,2) // 下移一行，右移2行
• Range(“a10”).end(xlup) //從a10往上數(shù)，有多少行已用
• Range(“a10”).entirerow //選中a10的整行
• Range(“a10”).resize(1,10) //重選區(qū)域
• Range(“a10”).copy //復(fù)制
• sheet1.Range("a:f").AutoFilter field:=4, Criteria1:="一車間" //'在sheet1中篩選第四列為一車間的數(shù)據(jù)。其中field是第x列，Criteria1是篩選條件。注意Criteria1最后一個是數(shù)字1

案例

題目：

excel將下面叫做“數(shù)據(jù)”的工作表根據(jù)分類條件拆分成多個sheet工作表，表名為分類條件。

結(jié)果如下：

分析：

1. 要新建所有分類表，在總表中循環(huán)每行，把要篩選的列值作為新建的表名， 每次循環(huán)要判斷是否已存在表名，重復(fù)建表會報錯
2. 刪除多余的表，不然每次執(zhí)行會產(chǎn)生很多表比較混亂
3. 需要篩選拷貝數(shù)據(jù)。

注意：執(zhí)行這段代碼前必須選中總表即你要拆分的表，否則數(shù)據(jù)會遭到破壞

代碼：

Sub chaifen()
  Dim i As Integer
    Dim j, k, irow, count As Integer
    Dim sht  As Worksheet
    Dim sht1  As Worksheet
    Dim x As Integer
    Dim sht0  As Worksheet

    Set sht0 = ActiveSheet
    
    x = InputBox("請選擇你要按哪列分，第幾列就填幾")
    
    '執(zhí)行分表前刪除多余的表
    Application.DisplayAlerts = False
    If Sheets.count > 1 Then
        For Each sht1 In Sheets
            If sht1.Name <> sht0.Name Then
             sht1.Delete
             End If
        Next
        
    End If
    
    Application.DisplayAlerts = True
    
    
    '獲取sheet1總行數(shù)
    irow = sht0.Range("a65536").End(xlUp).Row
    
     For i = 2 To irow
     '初始化k
        k = 0
        For Each sht In Sheets
        '判斷是否已存在表名
            If sht.Name = sht0.Cells(i, x) Then
            k = 1
            End If
        Next
        '如果不存在表名就新建一個表
        If k = 0 Then
            Sheets.Add after:=Sheets(Sheets.count)
            Sheets(Sheets.count).Name = sht0.Cells(i, x)
        End If
        '篩選拷貝數(shù)據(jù)
         For j = 2 To Sheets.count
            sht0.Range("a1:f" & irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
            sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")
            '關(guān)閉篩選
            sht0.Range("a1:f" & irow).AutoFilter
         Next
        
    Next
    sht0.Select
    
 End Sub

注意：執(zhí)行這段代碼前必須選中總表即你要拆分的表，否則數(shù)據(jù)會遭到破壞

這段案例代碼的知識點(diǎn)有：

1. Set sht0 = ActiveSheet
2. irow = sht0.Range("a65536").End(xlUp).Row
3. Sheets(Sheets.count).Name = sht0.Cells(i, x）
4. sht0.Range("a1:f"&irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
5. sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")