excel - 如何检测邮箱地址和更新栏目？

Question

我想检测电子邮件地址的某个部分。
例如，E 列中的电子邮件地址是 [e-mail]。我需要检测@green.com 或只是绿色，然后在 I 列中填写 green-team。

就像是：

Cells.Replace What:="@green.com", Replacement:="green", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False

但它不应该替换@green.com，而是在 I 列中添加 green-team。

标签： excelvba

Answer 1

试试这个 - 它假定您要在 e 列中查看的单元格被选中。

Sub emails()

Dim cel As Range

For Each cel In Selection

If InStr(cel.Value, "@green.com") > 0 Then

cel.Offset(, 4).Value = "green-team"

End If
Next cel

End Sub