[VBA原创源代码] excelhome 对花名册进行分类

最近在学习《菜鸟谈VBA最最基础入门《原创》》，其中第22节有一个VBA编程作业，实现对花名册进行分类。

自己花了点时间，自己丫丫学步，终于实现出来。

在原创聚集地cnblogs发布出来，鼓励自己的一点一滴的进步。

 

Sub mysub()

Dim i As Long
Dim MAX As Long

MAX = [A65536].End(xlUp).Row

For i = 3 To MAX
    If Cells(i, 8) = "清镇" Then
        Select Case Cells(i, 9)
            Case "卫城"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("卫城").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Case "站街"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("站街").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Case "流长"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("流长").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Case "王庄"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("王庄").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Case "青龙"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("青龙").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Case "红枫"
                Range("A" & i & ":L" & i).Select
                Selection.Copy
                Sheets("红枫").Select
                Range("A" & [A65536].End(xlUp).Row + 1).Select
                ActiveSheet.Paste
        End Select
    Else
        Range("A" & i & ":L" & i).Select
        Selection.Copy
        Sheets("清镇市外").Select
        Range("A" & [A65536].End(xlUp).Row + 1).Select
        ActiveSheet.Paste
    End If
    
    Sheets("外在本就读花名册").Select
Next i

End Sub

 

转载于:https://www.cnblogs.com/sinodragon21/p/9561022.html