sheet1一组数据如何自动分类放在sheet2 sheet3中

sunsoso · 发表于 2010-1-23 12:31

具体内容是：

要sheet1表中有一组数据：如

原料名	原料	状态	产品批号	有效限期	总库存 [kg]	包装大小 [kg]	原料类别
CORN STARCH (BIG BAG)	60366A9866	可用的	9128004	08/08/2009	903.000	903.000	1类
WHEAT FLOUR RC	60504A2566	可用的	9293001	01/10/2010	200.000	25.000	2类
WHEAT FLOUR RC	60504A2566	可用的	9306008	01/29/2010	9,000.000	1,500.000	1类
WHEAT FLOUR RC	60504A2566	可用的	9306009	01/29/2010	1,000.000	25.000	2类
WHEAT MIDDLINGS (16%)	60540A2566	可用的	9352001	03/20/2010	3,988.000	997.000	3类
WHEAT MIDDLINGS (16%)	60540A2566	可用的	9352002	03/20/2010	972.000	972.000	4类
CORN GLUTEN MEAL 60%	60620A4066	可用的	9341002	12/05/2010	1,760.000	40.000	3类
SUGAR	61260A5066	可用的	9314004	08/11/2010	100.000	50.000	2类

如何根据后面的原料类别，把 1类的产品全部放入sheet2,把2类的放入 sheet3.以此类推

如果是筛选复制的方法哪就免了。

[此贴子已经被作者于2010-1-23 13:06:37编辑过]

兰色幻想 · 发表于 2010-1-23 12:33

用高级筛选行吗?

兰色幻想 · 发表于 2010-1-23 12:33

用函数也可以

喜多多 · 发表于 2010-1-23 12:34

可以用函数的index或offset等来做

喜多多 · 发表于 2010-1-23 12:34

干脆用VBA吧，很省事[em07]

兰色幻想 · 发表于 2010-1-23 12:35

估计楼主有很多这样的分类,想一次分到各个表中去,是这样吗?如果是这样,用VBA是最好的方法,一次就可以完成

sunsoso · 发表于 2010-1-23 12:52

那么如何用VBA实现。请教程序代码。谢谢

兰色幻想 · 发表于 2010-1-23 13:29

QUOTE:

以下是引用sunsoso在2010-1-23 12:52:00的发言：
那么如何用VBA实现。请教程序代码。谢谢

Sub 分类存放()
Dim arr, arr1, arr2()
Dim myrow
myrow = Sheets("sheet1").Range("h65536").End(xlUp).Row - 1
arr = Sheets("sheet1").Range("a2:h" & myrow + 1)
Set d = CreateObject("Scripting.Dictionary")
'取得唯一的分类
For x = 1 To myrow
    d(arr(x, 8)) = arr(x, 8)
Next x
arr1 = d.keys
For y = 0 To UBound(arr1)
    ReDim arr2(1 To myrow, 1 To 8)
    For x = 1 To myrow
       If arr(x, 8) = arr1(y) Then
          k = k + 1
          For j = 1 To 8
            arr2(k, j) = arr(x, j)
          Next j
       End If
    Next x
    Set mysheet = Sheets.Add
    mysheet.Name = arr1(y)
    mysheet.Range("a1:h1").Value = Sheets("sheet1").Range("a1:h1").Value
    mysheet.Range("a2").Resize(k, 8) = arr2
    Erase arr2
    k = 0
Next y
End Sub

0ll3tufp.rar (9.15 KB, 下载次数: 114)

hecaihao · 发表于 2013-11-15 11:25

兰色幻想发表于 2010-1-23 13:29
QUOTE:以下是引用sunsoso在2010-1-23 12:52:00的发言：那么如何用VBA实现。请教程序代码。谢谢Sub 分类存 ...

你好，尊敬的教官，我在http://www.excelpx.com/forum.php ... ge=1&authorid=5 的4楼上看到了你编的vba，请问如果数据有16列，n行，按照第一列的数据进行分表，且保留总表，请问怎么编写代码？

xhzhengzheng · 发表于 2014-11-21 17:23

兰色幻想发表于 2010-1-23 13:29
QUOTE:以下是引用sunsoso在2010-1-23 12:52:00的发言：那么如何用VBA实现。请教程序代码。谢谢Sub 分类存 ...

非常实用，

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