Excel 索引函数电子邮件列表与空列

Question

我有一个从单元格 C2:L1000 开始的电子邮件列表。其中一些单元格是空白的。某些单元格包含与其他单元格相同的电子邮件。我正在尝试在单个列中列出所有电子邮件，以过滤掉重复值和空单元格。什么功能或 VBA 可以帮助我实现这个目标？

Answer 1

这不是很有效，但也许它会给你一些关于如何完成你正在寻找的东西的想法。祝你好运

Sub RunThisCode()
Dim rcell As Range, Column2PlaceValues As Range, RangeOfEmailAddress As Range

Set Column2PlaceValues = Range("M:M").EntireColumn
Set RangeOfEmailAddress = Rangee("C2:L1000")


For Each rcell In RangeOfEmailAddress.Cells


    If IsEmpty(rcell) Then
        'do nothing

    ElseIf Not (Test4Match(rcell, Column2PlaceValues)) Then
        Cells(Rows.Count, Column2PlaceValues.Column).End(xlUp).Offset(1, 0) = rcell.Value

    End If


Next rcell


End Sub


Private Function Test4Match(rcell As Range, Column2PlaceValues As Range) As Boolean

On Error GoTo NOPE
    Test4Match = Application.WorksheetFunction.Match(rcell.Value, Column2PlaceValues, 0)
Exit Function

NOPE:

End Function