Excel使用VBA罗列出工作表的信息

在Excel中，有时候我们需要将某一列单元格的信息进行罗列，并且不论重复与否，都提取出来放到另外一列中。下面我们将介绍如何通过VBA来实现这个功能。

打开VBE编辑器

首先，打开Excel表格，并点击【开发工具】、【Visual Basic】，调出VBE编辑器。

插入模块

在VBE编辑器的菜单栏上面点击【插入】、【模块】，以便后续输入VBA程序代码。

编写VBA代码

Sub TiQu()
    Dim i1, i2, i3
    On Error Resume Next '忽略运行过程中可能出现的错误
      False '关闭屏幕显示更新
    Set mysheet1  ("Sheet1") '定义工作表Sheet1
    i3  1
    For i1  2 To 1000 '从第2行到1000行
        If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白，则
            i2  (mysheet1.Range("G2:G1000"), _
                mysheet1.Cells(i1, 1)) '获取存在相同的单元格个数
            If i2  0 Then '如果不存在相同，则
                i3  i3   1 '累计1，从第二行开始
                mysheet1.Cells(i3, 7)  mysheet1.Cells(i1, 1) '把数值填入到G列相应的单元格
            End If
        End If
    Next
      True '恢复屏幕显示更新
End Sub

运行程序

确认无误后，在VBE编辑器的功能区里面点击“运行”图标运行程序。

查看结果

回到Sheet1工作表界面，你将会看到G列中已经罗列出了A列单元格的信息。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。