根据关键字提取

zy19880405

1、A列邮箱地址是混在一起的，没有按照邮箱域名单独分开，这是新增加的邮箱地址。

2、C列，E列，G列，I列的邮箱地址是按照相同邮箱域名单独放在一起，这是之前已经整理好的邮箱地址。

我是需要将A列的邮箱地址，按照邮箱域名，分别移动到含有相同邮箱域名的其他列中。我是需要在老数据的基础上，增加新的数据。

TTBRD

建议增加一辅助列，提取邮箱后辍名，然后用视表透视提取

x-xx-xx

得到域名,用字典去重,放到第一行当标题,循环判断第一列,再循环第一行的标题,如果域名等于标题,得到列号,数据就放到对应列

lijian318

1. Sub test()
   
2. On Error Resume Next
   
3. [c16:c20].ClearContents
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For a = 2 To Cells(1, Columns.Count).End(1).Column
   
6. b = ""
   
7. b = Split(Cells(1, a), "@")(1)
   
8. d(b) = a
   
9. Next
   
10. For c = 1 To [a1].End(4).Row
    
11. e = Split(Cells(c, 1), "@")(1)
    
12. f = Cells(Rows.Count, d(e)).End(3).Row + 1
    
13. Cells(f, d(e)) = Cells(c, 1)
    
14. Next
    
15. End Sub

复制代码

wj2368

，，，，，，，，，，，，，，

zy19880405

wj2368 发表于 2018-9-26 14:57
，，，，，，，，，，，，，，

谢谢  ~~~~~但是我删除了原始的数据 （A列）  换了新的数据  那些不是新的往下增加耶

wj2368

zy19880405 发表于 2018-9-26 15:03
谢谢  ~~~~~但是我删除了原始的数据 （A列）  换了新的数据  那些不是新的往下增加耶

你的邮箱数据 要在A 列

wj2368

zy19880405 发表于 2018-9-26 15:03
谢谢  ~~~~~但是我删除了原始的数据 （A列）  换了新的数据  那些不是新的往下增加耶

还有列是多C列开始的，顺序是A列的起始排列的

zy19880405

wj2368 发表于 2018-9-26 15:27
还有列是多C列开始的，顺序是A列的起始排列的

A列 我会删除掉 以后再换新的 但是后面的就不变 遇到域名一样的 就往下加 这样可以嘛

wj2368

zy19880405 发表于 2018-9-26 15:28
A列 我会删除掉 以后再换新的 但是后面的就不变 遇到域名一样的 就往下加 这样可以嘛

固定的用个条件句判断一下