用vba语言写一段根据快递单号是否重复,未重复的单号新建一个工作簿进行统计
时间: 2024-02-20 15:56:14 浏览: 61
多个EXCEL工作簿(Sheet)合成一个工作簿
5星 · 资源好评率100%
以下是一个用 VBA 语言实现的根据快递单号是否重复,未重复的单号新建一个工作簿进行统计的代码:
```vb
Sub CheckDuplicate()
Dim ws As Worksheet
Dim newWB As Workbook
Dim i As Long, j As Long, lastRow As Long
'获取当前活动工作表
Set ws = ActiveSheet
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
'新建一个工作簿
Set newWB = Workbooks.Add
'在新工作簿中创建一个名为“未重复快递单号”的工作表
With newWB.Sheets.Add(After:=newWB.Sheets(newWB.Sheets.Count))
.Name = "未重复快递单号"
.Range("A1").Value = "快递单号"
End With
'检查是否有重复的快递单号,如果没有则将其添加到新工作簿中
For i = 2 To lastRow
For j = i + 1 To lastRow
If ws.Cells(i, "A").Value = ws.Cells(j, "A").Value Then
Exit For
End If
Next j
If j = lastRow + 1 Then
newWB.Sheets("未重复快递单号").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ws.Cells(i, "A").Value
End If
Next i
'保存新工作簿并关闭
newWB.SaveAs ThisWorkbook.Path & "\未重复快递单号.xlsx"
newWB.Close
MsgBox "已完成统计"
End Sub
```
使用方法:
1. 打开 Excel 文件,并打开要检查的工作表。
2. 在 Excel 菜单栏中选择“开发工具”->“Visual Basic”。
3. 在 Visual Basic 编辑器中,选择“插入”->“模块”。
4. 将上述代码复制到新建的模块中。
5. 在 Visual Basic 编辑器中,单击“运行”->“运行子过程”或按下 F5 键运行代码。
6. 程序将在新工作簿中创建一个名为“未重复快递单号”的工作表,并将未重复的快递单号添加到该工作表中。
7. 保存新工作簿并关闭。
注意事项:
1. 代码中默认快递单号所在列为 A 列,如有需要请自行修改代码。
2. 新工作簿将保存在原文件所在路径下,文件名为“未重复快递单号.xlsx”。
3. 如需修改保存路径和文件名,请自行修改代码中的相应部分。
阅读全文