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

zenyong1

谢谢老师分享

Roy2006

占个位，慢慢学

jinsanjin

学习了，非常感谢大家的无私奉献

adaljy1989

太好了 我可以一步一步跟着做

leave102

内容好多，看不完，意志力力太差了，不过写的很好！

Mapleaf12138

ggsmart 发表于 2009-8-12 21:47
程序流程控制——For—Each 循环语句
===============================
有了前面对循环一词的理解，这里 ...

这个元素变量叫作临时变量更容易理解，我是新人，搞了半天才明天啥意思

Mapleaf12138

虽然过去了9年，但是还是要附上我的花名册分类作业，最近刚看

1. Sub fenlei()
   
2. Dim hm As Worksheet, wc As Worksheet, zj As Worksheet, lc As Worksheet, wz As Worksheet, ql As Worksheet, hf As Worksheet, sw As Worksheet
   
3. Set hm = Worksheets("外在本就读花名册")
   
4. Set wc = Worksheets("卫城")
   
5. Set zj = Worksheets("站街")
   
6. Set lc = Worksheets("流长")
   
7. Set wz = Worksheets("王庄")
   
8. Set ql = Worksheets("青龙")
   
9. Set hf = Worksheets("红枫")
   
10. Set sw = Worksheets("清镇市外")
    
11. lastRow = hm.[A65535].End(xlUp).Row
    
12. lastColumn = hm.[A2].End(xlToRight).Column
    
13. ' xian = hm.Range(hm.Cells(2, 1), hm.Cells(2, lastColumn)).Find("县").Column
    
14. xian = hm.Rows(2).Find("县").Column
    
15. ' xiang = hm.Range(hm.Cells(2, 1), hm.Cells(2, lastColumn)).Find("乡").Column
    
16. xiang = hm.Rows(2).Find("乡").Column
    
17. wc.Range(wc.Cells(3, 1), wc.Cells(65536, lastColumn)).Clear
    
18. zj.Range(zj.Cells(3, 1), zj.Cells(65536, lastColumn)).Clear
    
19. lc.Range(lc.Cells(3, 1), lc.Cells(65536, lastColumn)).Clear
    
20. wz.Range(wz.Cells(3, 1), wz.Cells(65536, lastColumn)).Clear
    
21. ql.Range(ql.Cells(3, 1), ql.Cells(65536, lastColumn)).Clear
    
22. hf.Range(hf.Cells(3, 1), hf.Cells(65536, lastColumn)).Clear
    
23. sw.Range(sw.Cells(3, 1), sw.Cells(65536, lastColumn)).Clear
    
24. For i = 3 To lastRow
    
25. rangeIxian = hm.Cells(i, xian).Value
    
26. If rangeIxian <> "清镇" Then
    
27. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy sw.Cells(sw.[A65535].End(xlUp).Row + 1, 1)
    
28. j = sw.[A65535].End(xlUp).Row + 1
    
29. hm.Rows(i).Copy sw.Rows(j)
    
30. sw.Cells(j, 1).Value = j - 2
    
31. Else
    
32. rangeIxiang = hm.Cells(i, xiang)
    
33. Select Case rangeIxiang
    
34. Case "卫城"
    
35. j = wc.[A65535].End(xlUp).Row + 1
    
36. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy wc.Cells(j, 1)
    
37. hm.Rows(i).Copy wc.Rows(j)
    
38. wc.Cells(j, 1).Value = j - 2
    
39. Case "站街"
    
40. j = zj.[A65535].End(xlUp).Row + 1
    
41. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy zj.Cells(j, 1)
    
42. hm.Rows(i).Copy zj.Rows(j)
    
43. zj.Cells(j, 1).Value = j - 2
    
44. Case "流长"
    
45. j = lc.[A65535].End(xlUp).Row + 1
    
46. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy lc.Cells(j, 1)
    
47. hm.Rows(i).Copy lc.Rows(j)
    
48. lc.Cells(j, 1).Value = j - 2
    
49. Case "王庄"
    
50. j = wz.[A65535].End(xlUp).Row + 1
    
51. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy wz.Cells(j, 1)
    
52. hm.Rows(i).Copy wz.Rows(j)
    
53. wz.Cells(j, 1).Value = j - 2
    
54. Case "青龙"
    
55. j = ql.[A65535].End(xlUp).Row + 1
    
56. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy ql.Cells(j, 1)
    
57. hm.Rows(i).Copy ql.Rows(j)
    
58. ql.Cells(j, 1).Value = j - 2
    
59. Case "红枫"
    
60. j = hf.[A65535].End(xlUp).Row + 1
    
61. ' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy hf.Cells(j, 1)
    
62. hm.Rows(i).Copy hf.Rows(j)
    
63. hf.Cells(j, 1).Value = j - 2
    
64. End Select
    
65. End If
    
66. Next
    
67. 
    
68. End Sub

复制代码

xiaoheike

当初LZ要是我大学计算机老师的话,我肯定会好好学的.

shamrockzxy

感谢楼主，好形象生动，好人一生平安！

86233524

楼主，我有个问题。
通过sheet1里面的身份证号码，在sheet2里面找到该行，把该行该身份证的手机号码，给复制到sheet1里面对应的身份证里面去，怎么写宏呀？