菜鸟谈VBA最最基础入门《原创》

cfg7300

讲的太好了，有后续吗，再给点讲座吧，初学者很有用，比书讲的更容易接受。

dsz_sjm

ggsmart 发表于 2009-8-25 12:21
[试一试]对花名册进行分类

1. Sub newSheets() '创建新表
   
2.     Dim i As Byte, r As Byte, c As Byte, j As Byte, bm
   
3.     Dim ws As Worksheet
   
4.     r = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
   
5.     c = Worksheets(1).Cells(2, Columns.Count).End(xlToLeft).Column
   
6.     Application.DisplayAlerts = False
   
7.     On Error Resume Next
   
8.     For Each ws In Worksheets    '用遍历工作表法删除非数据源表
   
9.         If Not ws Is Worksheets(1) Then
   
10.             ws.Delete
    
11.         End If
    
12.     Next
    
13.     Worksheets.Add after:=Worksheets(Worksheets.Count)
    
14.     ActiveSheet.Name = "清镇市外"
    
15.     Worksheets(1).[a1].Resize(2, c).Copy Worksheets("清镇市外").[a1]
    
16.     For i = 3 To r
    
17.         For Each ws In Worksheets
    
18.             If Worksheets(1).Cells(i, "H") <> "清镇" Then
    
19.                 j = Worksheets("清镇市外").Cells(Rows.Count, 2).End(xlUp).Row + 1
    
20.                 Worksheets(1).Cells(i, 1).Resize(1, c).Copy Worksheets("清镇市外").Cells(j, 1)
    
21.                 Worksheets("清镇市外").Cells(j, 1) = j - 2
    
22.                 Exit For '从这里跳出for each循环worksheet是带值的（重点）
    
23.             Else
    
24.                 If ws.Name = Worksheets(1).Cells(i, "I") Then
    
25.                     Exit For '同上
    
26.                 End If
    
27.             End If
    
28.         Next '从这里跳出for each循环worksheet是不带值的（重点）
    
29.         If ws Is Nothing Then
    
30.             Worksheets.Add after:=Worksheets(Worksheets.Count)
    
31.             ActiveSheet.Name = Worksheets(1).Cells(i, "I")
    
32.             Worksheets(1).[a1].Resize(2, c).Copy ActiveSheet.[a1]
    
33.         End If
    
34.         bm = Worksheets(1).Cells(i, "I")
    
35.         j = Worksheets(bm).Cells(Rows.Count, 2).End(xlUp).Row + 1
    
36.         Worksheets(1).Cells(i, 1).Resize(1, c).Copy Worksheets(bm).Cells(j, 1)
    
37.         Worksheets(bm).Cells(j, 1) = j - 2
    
38.     Next
    
39.     Worksheets(1).Activate
    
40.     Application.DisplayAlerts = True
    
41. End Sub
    

复制代码

学了一个月了，硬是整出来了，不容易，交个作业与大家共享。感谢老师将我带进门，这种从实例逐步入手的方法非常适合初学者。

木木又寸

好贴，谢谢。

homelesschild

这两本书我都买了，第1本共314页，两个小时看了100多页，居然都看懂了，写的太好了

homelesschild

我20多年前曾在DOS操作系统使用Dbase2/Dbase3/Foxbase编程，现在刚学VBA，发现很多知识都是相通的，只是数据类型和对象的属性多了很多，还需要认真学习，早日融会贯通。

cjunkuo

很好的总结和学习心得。

cjunkuo

祝LZ好心人幸福

YZC51

谢谢老师，待慢慢学习。

dxl1236

非常感谢！！

terry200x

还能下载吗