复制值到另一个如果它包括某些值

Question

原始图像.. http://screencast.com/t/jk3IIbuuV

需要从〜500行抢5种类型的数据和粘贴到5点独立的行。理想情况下，数据将如屏幕右侧所示转换。

1. 诊所的名称
2. 诊所电子邮件地址
3. 网站
4. 的诊所

我想一些类型的。如果其搜索公式/宏代表

类型名称对于大写字母，另一个搜索@并返回字符串，另一个搜索www，另一个搜索子弹点。可能？

Answer 1

好吧，你刚才给你的500个数以百计的一点点行，所以我假定一些模式：

我觉得我得到了，“网站”和“电子邮件”，“诊所的名称”，

数据在列A。 将显示一个单元格的示例，但其他单元格的公式可以重现（只需拖动它们）。

诊所名称。

转换大写字符串中的所有字符串。

B1 =UPPER(A1) 

检查新字符串（B1）是否与原始字符串（A1）不同。

C1 =IF(EXACT(A1,B1),A1,"") 

网站

跟踪字符位置： “WWW”。

B1 =SEARCH("www.",A1,1) 

“www”后面的裁剪字符串。 “.CL” （假设你给过的网站只能用 “.CL” 完成所有的例子）：中

C1 =MID(A1,B1,100) 

跟踪字符位置。

D1 =SEARCH(".cl",C1,1) 

替换为“.CL”的一切权（以防万一字符串没有完成在“.CL‘），只为’.CL”。

E1 =REPLACE(C1,D1,100,".cl") 

电子邮件

同样想法的网站，但现在，作出有关的原始数据强的假设：
- 所有电话号码的格式（2）XXXX XXXX或（2 ）XXXX-XXXX;
- 电子邮件信息就在电话号码的右侧。

B1 =FIND("(2)",A1,1) 
C1 =MID(A1,B1,100) 
D1 =MID(K18,14,100) #remove the phone number (13 characters)# 
E1 =SEARCH(".cl",L18,1) 
F1 =REPLACE(D1,E1,100,".cl") 

我没有尝试收集“诊所式”，因为我无法重现的Excel文件（实际上是子弹，我复制并从MS Word中粘贴的子弹，但我不知道这是否是与您的数据格式相同）。我第一次尝试使用公式B1 =left(A1,1)来提取每个字符串的第一个字符。所有带子弹的文本/字符串可能都会有一个模式（相同的字符）。然后，您只需筛选选择子弹字符的单元格，并复制/过去“诊所类型”信息。

我不知道如何检索“联系人姓名”，但对于我在这里提出的建议，将有可能消除“诊所类型”和“诊所名称”信息的行。