4.7.8 将工作表保存为新工作薄

小沢

hehex 发表于 2013-3-7 17:02
参考附件。
书上的例子是为了说明单元格对象的用法，并不具备实际应用的意义。
别怕这本书是一本很好的 ...

速率好快啊！感觉自己编的好烂。

    xrow = Cells(65536, "a").End(xlUp).Row
    Range(Cells(2, 1), Cells(65536, "g")).Sort key1:=Cells(2, "c")
    j = 2
    For i = 2 To xrow
        If (Left(Cells(i, 3), 1) <> Left(Cells(i + 1, 3), 1)) Then
            bj = Left(Cells(i, 3), 1) & "年级"
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = bj
            Sheets("AAA").Select
            Range("a1:g1").Copy Worksheets(bj).[a1]
            Range(Cells(j, 1), Cells(i, "g")).Copy Worksheets(bj).[a2] （这一部分没看懂。所以也不知道怎么应用。）
            j = i + 1
       End If

那，请问高手如果按照班级分类，而忽略年级的话，该怎么改呢？
一下子吃进这么多有点看不懂，想对比着学一下。

求高手回复。

小沢

hehex 发表于 2013-2-20 11:25
首先把你保存工作薄目录下已经存的分割出去的工作薄都删除。只留一个总工作簿包含代码的那个。
然后用下 ...

我还有个问题求高手解答：
关于附件中，对AAA表进行数据分类，我按照书中的语句稍微改了一下，但是没有成功。
我的目的是想让C列按照年级的方式分类。比如六/(2)班，忽略表格中“/(2)班“，“/(3)班“等内容，单纯按照六，七年级分类该怎么分？？？

六/(2)班

六/(1)班

六/(2)班

六/(2)班

六/(1)班

七/(2)班

七/(3)班

4.7.7.zip (277.32 KB, 下载次数: 4)

2013-3-7 15:00 上传

点击文件名下载附件

hehex

小沢 发表于 2013-3-7 18:35
速率好快啊！感觉自己编的好烂。

按班级(忽略年级）分类，参考附件吧。
代码要更复杂一些。

小沢

hehex 发表于 2013-3-7 21:03
按班级(忽略年级）分类，参考附件吧。
代码要更复杂一些。

不好意思再次麻烦你。 4.7.7_1_1.zip (215.46 KB, 下载次数: 4)

2013-3-8 16:23 上传

点击文件名下载附件

如果班级的名称毫无规律，那么附件里的宏就不太适用了。
感觉只能应用到第7个字符。
有没有一种方法，摆脱字符的限制，即使在班级名称变化毫无规律的情况下，也可以自由分类？？
就是说，如果“/”符号左右两边不一致，`/`右面的文字组成毫无规律，
也可以根据“/”这符号而分割表格的话，该怎么分类？？

{:soso_e100:}拜托了。

hehex

小沢 发表于 2013-3-8 16:23
不好意思再次麻烦你。
如果班级的名称毫无规律，那么附件里的宏就不太适用了。
感觉只能应用到第7个字 ...

完全无规律就无法分类了。
没看明白你什么意思，要不你做个例子说明想怎么分。

小沢

hehex 发表于 2013-3-8 16:43
完全无规律就无法分类了。
没看明白你什么意思，要不你做个例子说明想怎么分。

比如C列是以下内容：
班级
geography/purple
geography/purple
geography/purple
geography/pink
geography/red
sociology/green
sociology/green
sociology/pink
sociology/pink
sociology/red
sociology/white
sociology/yellow
Biology/blue
Biology/blue
Biology/blue
Biology/blue
Biology/blue
Biology/blue
Biology/red
Biology/red
Biology/red
Biology/white
Biology/white
Biology/yellowgreen
Biology/yellowgreen
Biology/yellowgreen
Biology/yellowgreen
Biology/yellow
Biology/yellow
Biology/yellow
Biology/yellow
economics/green
economics/green
economics/pink
economics/pink
economics/pink
economics/pink
economics/red
economics/red
economics/red
economics/red
economics/white
economics/white
economics/yellow
economics/yellow
economics/yellow
economics/yellow
economics/yellowgreen
economics/yellowgreen
economics/yellowgreen
economics/yellowgreen
economics/yellowgreen
physics/green
physics/green
physics/pink
physics/pink
physics/red
physics/red
physics/yellowgreen
physics/yellowgreen
physics/yellowgreen

我只想按照颜色分类，忽视前面的学科，按照颜色的英文分类，分到相应的表格里。
每一类都只是一种颜色。

hehex

小沢 发表于 2013-3-8 20:16
比如C列是以下内容：
班级
geography/purple

这个其实要比那个例子的按班级分类简单的多。
做了一个简单的例子来实现，参考附件。