[已解决]求助：数据自动归类（VBA）

夹竹桃

各位老师：大家好！
    首先谢谢大家，感谢大家对我的无私的帮助！
    在此簿中，当“报名册”表中的N列或P列写入不同的字符后，在报名册后面的各表中，将含有该字符信息的整行自动复制到相应的表格中。
    例如，黄色行在P列中为“转出”，这一行就自动复制到“转出”表中，并且自动填上序号。
   老师：不知用VBA能不能达到这样的功能？恳请大家给菜鸟写一段VBA了！

最佳答案

月排行榜 / 总排行榜

liuts

2011-8-11 15:44

数据自动归类.rar (15.19 KB, 下载次数: 83)

2011-8-11 15:43 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

回复 夹竹桃 的帖子

这个得用到VBA了。

studyexcel

楼主要每日签到啊，金币不多了

无聊的疯子

回复 夹竹桃 的帖子

不用VBA也可以，只是要添加几个辅助列！！

数据少没什么，数据多就会感觉到很慢了！！

夹竹桃

各位老师：
   首先谢谢大家的关注！ 能在百忙中给菜鸟写个VBA吗

liuts

数据自动归类.rar (15.19 KB, 下载次数: 83)

2011-8-11 15:43 上传

点击文件名下载附件

夹竹桃

回复 liuts 的帖子

liuts：
太美了！非常感谢！！！

yehf

Sub 按钮5_单击()
Dim i          As Long
Dim j          As Long
Dim c          As Byte
Dim str        As String
str = [n3] & [p2]
j = 4
For c = 2 To ThisWorkbook.Sheets.Count
    If InStr(1, str, Worksheets(c).Name) > 0 Then
        i = Worksheets(c).UsedRange.Rows.Count
        If i > 4 Then
            Worksheets(c).Rows("5:" & i).Copy
            Worksheets("报名册").Range("A" & j).Select
            ActiveSheet.Paste
            j = j + i - 4 + 1
        End If
    End If
Next
ThisWorkbook.Save

End Sub

夹竹桃

yehf 老师：
谢谢！论坛上大家虽然不曾谋面，但是大家的热情达到了极致！我从心底里感谢大家。