vba 复制粘贴到空白行的代码修改

发布网友发布时间：2022-12-29 20:50

共3个回答

热心网友时间：2023-10-27 19:19

Sub jjj()

Dim i%

For i = [a65536].End(xlUp).Row To 1 Step -1

If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete

Next i

End Sub

用上面代码就能删掉重复项了
先建个窗口,再加个按钮,在按钮事件里加入上面的代码.

Dim i%

For i = [a65536].End(xlUp).Row To 1 Step -1

If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete

Next i

不清楚,再用消息联系吧

热心网友时间：2023-10-27 19:20

Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete

热心网友时间：2023-10-27 19:20

问题表述得不很清楚，如果有附件就好了！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com