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

jp521330kh · 发表于 2010-7-30 15:34

看你这个文章比看，那些书好多了！受教了！可惜我还无法下载！！

jp521330kh · 发表于 2010-7-30 15:35

支持！我一定会知道怎么弄的！VBA

henrylam · 发表于 2010-7-30 15:45

收藏收藏

dgwang · 发表于 2010-7-30 15:49

讲得非常好，谢谢老师分享。

paoyaoren · 发表于 2010-7-30 17:15

感谢楼主，对VBA 有了初步的认识和学习。

wjlrq · 发表于 2010-7-30 17:28

谢谢楼主的分享。

drakelj · 发表于 2010-7-30 19:53

感觉不用VBA就不算会用EXCEL啊支持一下

韩江河畔 · 发表于 2010-7-30 22:37

好好收藏！

bbdmylo · 发表于 2010-7-31 14:30

楼主辛苦了，813楼你辛苦了！

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没法上传，这是我的程序，谢谢指教

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

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

回复 1843楼 ggsmart 的帖子