求助如何自动根据关键字批量导出相关内容到其他工作表

ellick1988

grf1973 发表于 2020-2-27 13:36
请看附件。

太强大了！！非常感谢！，请问我的数据一共有19列，分表复制数据时是否是把Resize(1, 11)修改成Resize(1, 19)？

ellick1988

dyp1610 发表于 2020-2-27 14:00
不是，for i=2 表示从数据表的第二行开始取数据，要改就改 arr(i,2),brr(i,2)中的2改成19

学习了！！谢谢老师

ellick1988

grf1973 发表于 2020-2-27 13:36
请看附件。

老师，请问Set d(lb) = Union([a1:k1], Cells(i, 1).Resize(1, 11))中的“a1:k1”范围就是复制数据的范围？？为什么修改了k1为r1就出错了，请原谅我这个VBA小白

dyp1610

1. Sub Divided_category()
   
2.     Dim arr, brr, d
   
3.    
   
4.     arr = Sheet1.UsedRange
   
5.    
   
6.     '根据类别创建工作表
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.    
   
9.     For i = 2 To UBound(arr)
   
10.         brr = Split(arr(i, 2), ",")
    
11.         For j = 0 To UBound(brr)
    
12.             d(brr(j)) = ""
    
13.         Next
    
14.     Next
    
15.    
    
16.     For Each Key In d.keys
    
17.         Sheets.Add(After:=Sheets(Sheets.Count)).Name = Key
    
18.         Sheet1.Range("A1:K1").Copy Sheets(Key).Range("A1")
    
19.     Next
    
20. End Sub

复制代码

ellick1988

dyp1610 发表于 2020-2-27 14:54

谢谢！老师，请问这个分表代码怎么把前面的自动筛选关键字的代码融合起来呀？o(╥﹏╥)o，请问下前面grf1973老师里面的cells，resize，语法怎么定义到S列？？

grf1973

ellick1988 发表于 2020-2-27 14:33
老师，请问Set d(lb) = Union([a1:k1], Cells(i, 1).Resize(1, 11))中的“a1:k1”范围就是复制数据的范围 ...

[a1:k1]是表头，如果[a1:r1]，后面改成.....resize(1,18)，保证union的两个区域列数相同。

ellick1988

grf1973 发表于 2020-2-27 16:54
[a1:k1]是表头，如果[a1:r1]，后面改成.....resize(1,18)，保证union的两个区域列数相同。

原来是18.。。原来我算错数了，一直调19错到怀疑人生。。

ellick1988

grf1973 发表于 2020-2-27 16:54
[a1:k1]是表头，如果[a1:r1]，后面改成.....resize(1,18)，保证union的两个区域列数相同。

老师你好，请问想把原来按 “，” 识别分类，改成按特定几个关键词分类，应该怎样改动代码？

ellick1988

dyp1610 发表于 2020-2-27 14:54

老师，请问 brr = Split(arr(i, 2), ",") 这段想把根据 “,” 分类不同项，修改成根据特定几个不同关键字区分不同项应该怎么修改好？？