如何根据列标题来选中该列所有值

owen9284

如 附件 我要根据列标题 ”EMEA" "CHINA" 为关键词 获取这两列所有的值，（不是选中整列，只选中有值的部分，下面的空格不要）然后复制到另外的表（如sheet2表，但是不复制EMEA CHINA 等标题）可以实现吗？VBA怎么写？ 求大神！！！！！

bajifeng

是空单元格不要还是数值为0的不要？

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, Brr, Crr
   
3. Dim d, c%
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Sheet1.Activate
   
6. [a2:b5000].ClearContents
   
7. Arr = [a1].CurrentRegion
   
8. For i = 1 To UBound(Arr, 2)
   
9.     d(Arr(1, i)) = i
   
10. Next
    
11. Brr = Sheet2.[a1].CurrentRegion
    
12. Crr = Sheet2.[a2].Resize(UBound(Brr) - 1, UBound(Brr, 2))
    
13. For i = 1 To UBound(Brr, 2)
    
14.     If d.exists(Brr(1, i)) Then
    
15.         c = d(Brr(1, i))
    
16.         Cells(2, c).Resize(UBound(Crr), 1) = Application.Index(Crr, 0, i)
    
17.     End If
    
18. Next
    
19. End Sub
    

复制代码

owen9284

bajifeng 发表于 2015-12-28 09:25
是空单元格不要还是数值为0的不要？

下面没有数值的不要，为0的也要

owen9284

蓝桥玄霜 发表于 2015-12-28 12:23

大神，如果不止一个表，要汇总几个表里面的EMEA CHINA列，循环怎么做？

蓝桥玄霜

owen9284 发表于 2015-12-28 18:38
大神，如果不止一个表，要汇总几个表里面的EMEA CHINA列，循环怎么做？

建议上传表格附件来说明问题。

LMY123

字典同薄，标题行相同，自动复制数据