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

gaofeng123654 · 发表于 2010-7-31 16:17

麻烦楼主看下花名册的问题
不知怎么的，每个结果都循环了六遍，而且某些字符还存在问题
谢谢了
Sub 分类()
  With Worksheets("外在本就读花名册")
For i = 3 To 107
   If .Range("H" & i).Value = "清镇" Then
      Select Case .Range("I" & i).Value
      Case Is = "站街"
         m1 = Sheets("站街").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("站街").Rows(m1 & ":" & m1)
      Case Is = "卫城"
         m2 = Sheets("卫城").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("卫城").Rows(m2 & ":" & m2)
      Case Is = "流长"
         m3 = Sheets("流长").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("流长").Rows(m3 & ":" & m3)
      Case Is = "王庄"
         m4 = Sheets("王庄").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("王庄").Rows(m4 & ":" & m4)
      Case Is = "青龙"
         m5 = Sheets("青龙").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("青龙").Rows(m5 & ":" & m5)
      Case Is = "红枫"
         m6 = Sheets("红枫").Range("a65536").End(xlUp).Row + 1
         .Rows(i & ":" & i).Copy Destination:=Sheets("红枫").Rows(m6 & ":" & m6)
      End Select
   Else
      m7 = Sheets("清镇市外").Range("a65536").End(xlUp).Row + 1
      .Rows(i & ":" & i).Copy Destination:=Sheets("清镇市外").Rows(m7 & ":" & m7)
   End If
Next i
  End With
End Sub

文档ms没法上传，这是我的程序，谢谢指教

蔡宛宏 · 发表于 2010-7-31 23:07

深受益处啊感谢了

lanxiangma · 发表于 2010-8-1 10:58

楼主用心了，看完楼主的内容，估计差不多了

韩江河畔 · 发表于 2010-8-1 15:52

为什么这么好，就是这么好，真的很好。谢谢，辛苦楼主了。

黑色光源 · 发表于 2010-8-1 22:52

写的真的很好~

kesine · 发表于 2010-8-2 01:27

感谢感谢感谢

zhangjimfu · 发表于 2010-8-2 07:44

非常完美的资料！收下

zhx88230 · 发表于 2010-8-2 16:50

x

受益匪浅

ggsmart · 发表于 2010-8-2 17:50

压缩成压缩包就能上传了

hustnzj · 发表于 2010-8-2 20:22

新手试着回一下：
将下面代码加在最前面就可以了吧：
For j = 2 To 8
Sheets(j).[a3:l65536].Clear
Next

同时将Activesheet改为sheet1.

		自动登录	找回密码
密码			免费注册

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

回复 1843楼 ggsmart 的帖子

回复 18楼 ggsmart 的帖子

回复 1912楼 gaofeng123654 的帖子

回复 215楼 ggsmart 的帖子