zoukankan      html  css  js  c++  java
  • [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
  • 相关阅读:
    如何解决selenium打开chrome提示chromedriver.exe已停止工作
    移动端弱网测试 fiddle
    android 真机设备识别不出adb interface
    网络基础知识
    《Mongo权威指南》学习手记
    MongoDB数据库备份
    windows下安装mongoDB(zip版)
    ubuntu apt
    docker 免sudo设置(仅3个命令)
    ubuntu18.04双卡机安装ubidia驱动遇到的坑
  • 原文地址:https://www.cnblogs.com/sinodragon21/p/9561022.html
Copyright © 2011-2022 走看看