如何提取excel表中的几列数据并生成新的exel文件

lyonly

Chip_Kenny 发表于 2016-6-4 07:19
仍未能看到你要的效果。

qq空间的图片可能没显示出来，我重新发个附件里面有我手动提取的数据表，效果如下图： 提取数据.rar (10.14 KB, 下载次数: 87)

2016-6-4 12:52 上传

点击文件名下载附件

感谢您的回复

Chip_Kenny

lyonly 发表于 2016-6-4 12:52
qq空间的图片可能没显示出来，我重新发个附件里面有我手动提取的数据表，效果如下图：
感谢您的回复

Try this:

1. Sub zz()
   
2. Dim ar, a(), br(), d, k, t, TL, tt
   
3. Set d = CreateObject("scripting.dictionary")
   
4. ar = [a1].CurrentRegion
   
5. a = Array(2, 6, 4, 5, 5, 8, 7)
   
6. For i = 0 To UBound(a)
   
7.     TL = TL & "|" & ar(1, a(i))
   
8. Next
   
9. TL = Split(Mid(TL, 2), "|")
   
10. For i = 2 To UBound(ar)
    
11.     t = ""
    
12.     For j = 0 To UBound(a)
    
13.         t = t & "|" & ar(i, a(j))
    
14.     Next
    
15.     d(ar(i, 2)) = d(ar(i, 2)) & "@" & t
    
16. Next
    
17. t = d.items
    
18. For i = 1 To d.Count
    
19.     Workbooks.Add
    
20.     [a1].Resize(1, UBound(TL) + 1) = TL
    
21.     ar = Split(t(i - 1), "@")
    
22.     ReDim br(1 To UBound(ar), 1 To UBound(a) + 1)
    
23.     For ii = 1 To UBound(ar)
    
24.         k = Split(ar(ii), "|")
    
25.         For j = 1 To UBound(k)
    
26.             If j <> 5 Then br(ii, j) = k(j)
    
27.         Next
    
28.     Next
    
29.     [a2].Resize(UBound(br), UBound(br, 2)) = br
    
30.     [e1] = "Unit"
    
31.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & br(1, 1)
    
32. Next
    
33. Set d = Nothing
    
34. End Sub
    

复制代码

lyonly

Chip_Kenny 发表于 2016-6-4 18:18
Try this:

收到，完全可以达到效果，非常感谢Chip_Kenny，帮了我大忙。谢谢

yetianyi

为什么我运行的结果生成新的文件夹，缺啥都没有啊

txr208

谢谢版主：我是初学者，刚看到也是我正想找的VBA，太好了

1302340328

Chip_Kenny 发表于 2016-6-4 18:18
Try this:

大神，帮忙看看附件2张表中，能否根据提单如AA,AB..创建几张新的表格，形式如附件中其中一张名为“TW发票箱单20170918（AA）“这样的。然后在汇总表格“TWRFS20170918"中找到对应数据，复制黏贴至对应新表格中的位置中去？

1302340328

Chip_Kenny 发表于 2016-6-4 18:18
Try this:

TW发票箱单20170918(AA).rar (20.56 KB, 下载次数: 0)

2017-9-23 22:08 上传

点击文件名下载附件

TWRFS20170918.rar (299.72 KB, 下载次数: 1)

2017-9-23 22:08 上传

点击文件名下载附件

大神，帮忙看看附件2张表中，能否根据提单如AA,AB..创建几张新的表格，形式如附件中其中一张名为“TW发票箱单20170918（AA）“这样的。然后在汇总表格“TWRFS20170918"中找到对应数据，复制黏贴至对应新表格中的位置中去？

1302340328

Chip_Kenny 发表于 2016-6-4 18:18
Try this:

大神，帮忙看看附件的该如何编VBA实现呢，根据文件名为”[url=]TWRFS20170918“附件中的提单这一列相应创建n张表格，表格格式为附件中另一张表名”[/url][url=]TW发票箱单20170918(AA)“，其中AA,AB,AC...以此类推就是对应前一张表里的提单列名称。然后将对应数据复制黏贴进后一张表格中。非常感谢啊！[/url]

tourise

Chip_Kenny 发表于 2016-6-3 15:49
Try this:

这个只能提取数据，如何在提取后进行对指定的几列数据进行排序，如1列升序，3列降序

lsc900707

tourise 发表于 2017-12-31 14:03
这个只能提取数据，如何在提取后进行对指定的几列数据进行排序，如1列升序，3列降序

有问题自己另开帖子，尽量不要这样寄生提问，尤其是时间久远的。