VBA实现查找完全相同行并提取A列数据到新表的代码示例

您可以使用VBA编写一个宏来查找完全相同的行，并提取相同行的A列数据到新表。以下是一个示例代码： ```vba Sub ExtractDuplicateRows() Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim rowNum As Long '设置源表和目标表 Set wsSource = ThisWorkbook.Sheets("Sheet1") Set wsDestination = ThisWorkbook.Sheets.Add '在新表中添加表头 wsSource.Rows(1).Copy Destination:=wsDestination.Rows(1) '确定源表最后一行 lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row '逐行检查和提取相同行数据 rowNum = 2 '开始行 For i = 2 To lastRow For j = i + 1 To lastRow If wsSource.Rows(i).Value = wsSource.Rows(j).Value Then wsSource.Rows(i).Copy Destination:=wsDestination.Rows(rowNum) rowNum = rowNum + 1 Exit For End If Next j Next i '删除多余空行 wsDestination.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub ``` 在此示例中，假设数据存储在名为“Sheet1”的工作表中。请在VBA编辑器中打开您的工作簿，单击“插入”>“模块”，将上面的代码粘贴到模块中，然后单击“运行”。此宏将在一个新建的工作表中提取完全相同的行的A列数据。您可以根据需要对代码进行修改以满足特定要求。 ######[AI写代码神器 | 877点数解答 | 2024-11-06 10:46:45]