时间戳

首页 > 解决方案 > 从特定工作表中删除 Excel 中的重复行

excel - 从特定工作表中删除 Excel 中的重复行

问题描述

提前感谢您的帮助！

我目前正在使用以下代码将多个 .csv 文件填充到一张表中，然后隐藏该表。我需要的帮助是从该工作表中删除重复的行。它可以合并到此代码中吗？谢谢！

Sub ImportCSVsWithReference()
'UpdatedforSPSS
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select the folder with the csv files [File Picker]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = Sheets.Add
    ActiveSheet.Name = "ImportedData"
    Worksheets("ImportedData").Visible = False
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "Encountered an error. Try again", , "Error"
End Sub

标签： excelvba

解决方案

实际上有一个内置函数可以从范围中删除重复项。它被称为RemoveDuplicates...

让我们看一个例子。我在这里假设-

  • 该表有 3 列
  • 该表有 100 行
  • 表格没有标题行

然后删除重复项的代码将如下所示：

ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

请参阅https://docs.microsoft.com/en-us/office/vba/api/excel.range.removeduplicates上的文档

推荐阅读