【VBA】获取多文本文件总条数及去重后数量

最新推荐文章于 2022-06-13 13:55:46 发布

原创

最新推荐文章于 2022-06-13 13:55:46 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #读取文本

本文介绍如何使用VBA读取多个文本文件中的IP地址，统计总条数，并进行去重操作。通过代码实现，验证合并后的IP总数是否与去重后的数量相等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下文本为存放IP文件，每行一条，代码可检查IP总数及是否有重复。“合并后总数”是否等于“去重后总数”

Sub CheckIPNum()
On Error Resume Next
Dim arr
Dim j As Integer, all_num As Integer
all_num = 0
Set dic = CreateObject("scripting.dictionary")
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        '多选
        .Filters.Clear
        '清除文件过滤器
        .Filters.add "Excel Files", "*.txt"
        .Filters.add "All Files", "*.*"
        '设置两个文件过滤器
        Dim showOkCancel As Integer
        showOkCancel = .Show
        'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果
您按 Cancel）。
        If showOkCancel =