如何使用vba在excel中的列中的文本文件中逐个打印唯一值

Question

我的情景是

如何使用vba在excel中的列中逐个打印文本文件中的唯一值 并使用vba逐个显示msgbox中的值 请给我一个建议

先谢谢

Answer 1

这是“msgbox”部分：

Sub main()
    Dim cell As Range

    For Each cell In Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues) 'change column index to suit your need
        If WorksheetFunction.CountIf(Range(Cells(1, cell.Column), cell), cell.Value) < 2 Then MsgBox cell.Value
    Next
End Sub

我会将“打印到文本文件”部分留给您

Answer 2

image.onload