用VB如何把一张excel表的A列中的相同元素，提取到B列中。用VB编程
最新回答
风向决定发型
2024-05-06 09:44:33
Sub 提取重复到B列()
x = Sheet1.[A65536].End(xlUp).Row
m = 0
For i = 1 To x
If Application.CountIf(Sheet1.Range("A1:A" & x), Sheet1.Cells(i, 1)) > 1 Then
m = m + 1
Sheet1.Cells(m, 2) = Sheet1.Cells(i, 1)
End If
Next
End Sub
关闭编辑画面回到工作表，点击菜单：工具--宏，或直接按ALT+F8组合键，在框中选择宏名字“提取重复到B列”，点“执行”
热门标签
