VBA 编写代码，复制非重复值，清空某个单元格区域

yaozhaoze · 发表于 2024-1-14 13:56

本帖最后由 yaozhaoze 于 2024-1-14 14:04 编辑

请各位老师帮忙编写VBA 编写代码，复制非重复值以及清空某个单元格区域两项功能，详细见附件。谢谢各位老师们帮忙，谢谢

（托盘清单B列）数复制到（送货单登记据B2以下行列中）重复去除重复值.清空送货单登记据C2以下行中的数据

sxbjzjf110 · 发表于 2024-1-14 14:27

gwjkkkkk · 发表于 2024-1-14 19:43

字典去重简单应用。。。

yaozhaoze · 发表于 2024-1-14 19:44

老师麻烦您帮忙我看看这个，谢谢
修改VBA 代码，完成功能需求
https://club.excelhome.net/thread-1682525-1-1.html
(出处: ExcelHome技术论坛)

ykcbf1100 · 发表于 2024-1-14 20:04

参与一下。。。

Sub ykcbf() '//2024.1.14
Dim arr, brr, d
Set d = CreateObject("Scripting.Dictionary")
With Sheets("托盘清单")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("b1:b" & r)
End With
For i = 2 To UBound(arr)
s = arr(i, 1)
d(s) = s
Next
With Sheets("送货单登记")
.UsedRange.Offset(1).Clear
.[b2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.Items)
.[b2].Resize(d.Count, 2).Borders.LineStyle = 1
End With
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-14 20:05

用字典排重，附件供参考。。。

yaozhaoze · 发表于 2024-1-16 12:43

sxbjzjf110 发表于 2024-1-14 14:27

老师帮我看看这个，谢谢
VBA 代码运行把不改变文本显示
https://club.excelhome.net/thread-1682660-1-1.html
(出处: ExcelHome技术论坛)

		自动登录	找回密码
密码			免费注册

[求助] VBA 编写代码，复制非重复值，清空某个单元格区域

评分