[VBA原创源代码] excelhome 对花名册进行分类
2024-10-09 18:55:22
最近在学习《菜鸟谈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
最新文章
- java中数据类型的转换
- HTML兼容问题——HACK技术
- AIX常用命令总结
- 【JAVA 其它流对象】
- oracle系统表查询
- Hibernate逆向工程
- 最新的支持DELPHI XE6的开发框架
- BZOJ 1875: [SDOI2009]HH去散步( dp + 矩阵快速幂 )
- 领域模型（Domain Model）
- angular2教程
- 数据库之Oracle(一)
- 猜随机数(控制台输入,字符串转int)
- [bzoj4162]shlw loves matrix II
- [Swift]LeetCode25. k个一组翻转链表 | Reverse Nodes in k-Group
- 【python练习题】程序7
- 17.3-uC/OS-III消息管理（消息队列使用）
- DIOCP-DIOCPv5的处理能力
- SQL行列转换6种方法
- 浅谈caffe中train_val.prototxt和deploy.prototxt文件的区别
- nginx通过配置empty_gif解决请求favicon 404的问题