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

走来走去的段

好东西啊，很受用的；收藏了

xsxxh

好！！正在认真学习。

sulong555

非常感谢 叶枫老师辛勤工作。

excelhome1986

对花名册进行分类--这个代码可否？

Public Sub try()

Dim i, j, c, r As Integer
i = 3
Do While i <= Sheet1.[b200].End(xlUp).Row
        Select Case Cells(i, 9).Value
           Case Is = "卫城"
            j = 2
            Case Is = "站街"
            j = 3
            Case Is = "流长"
            j = 4
            Case Is = "王庄"
            j = 5
            Case Is = "青龙"
            j = 6
            Case Is = "红枫"
            j = 7
            Case Else
            j = 8
        End Select
        r = Sheets(j).[b200].End(xlUp).Row
        For c = 2 To 12
            Sheet1.Cells(i, c).Copy Sheets(j).Cells(r + 1, c)
        Next
        i = i + 1
Loop

End Sub

edenbahamut

非常感谢楼主的无私奉献！

ggsmart

换一个循环语句，可行。

raincoffee1982

raincoffee1982

zyh196712

叶枫老师，请你去班上看看我的贴子吧，动态总计行不会写，谢谢！
    因为学数据透视表，很久没学V了，但是，现在能用V 试着写一些，我也感到很欣慰了，如果不是您，我就没有今天的成绩了，先自喜一下。循环语句比以前有点进步，但还不是完全理解，数组还没学，还有一些属性、函数在VBA里不知怎么用，所以这道题写不完全。

http://t.excelhome.net/viewthrea ... &extra=page%3D1

ljy11101

看完了，感觉比看那些书籍好多了，虽然有很多东西还是不明白，但是收获很多。谢谢楼主
另外请教一个问题，可以吗？就是把excel中的数据怎么才能批量链接到Word文档里面，实现自动更新
以前都是在Word里面用选择性粘贴中的粘贴链接，可是这样太浪费时间了，还请各位高手指教一二