gpt4 book ai didi

Excel 宏循环 - 每列删除重复项

转载 作者:行者123 更新时间:2023-12-04 19:58:56 26 4
gpt4 key购买 nike

我是 excel 宏的新手,想创建一个循环来标识一个列范围,并希望有一个行范围来删除重复项。目前,我已经采取了很长的方法来创建一个 excel 公式来创建下面的宏脚本。

任何有关以下内容的帮助将不胜感激,因为我现在有 60 列,需要再添加 40 列...

谢谢

Sheets("Result").Select
Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("B:B").Select
ActiveSheet.Range("$B$1:$B$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("C:C").Select
ActiveSheet.Range("$C$1:$C$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("D:D").Select
ActiveSheet.Range("$D$1:$D$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("E:E").Select
ActiveSheet.Range("$E$1:$E$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("F:F").Select
ActiveSheet.Range("$F$1:$F$100000").RemoveDuplicates Columns:=1, Header:=xlNo

最佳答案

如果您只关心每列的重复项,这将起作用。

Sub RemoveDuplicates()
'Stop the screen from updating to reduce lag
Application.ScreenUpdating = False

'Main loop
For i = 1 To 100
ActiveWorkbook.Sheets("Result").Columns(i).RemoveDuplicates Columns:=1, Header:=xlNo
Next

'Reset ScreenUpdating
Application.ScreenUpdating = True
End Sub

关于Excel 宏循环 - 每列删除重复项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55147729/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com