Question

用VB如何把一张excel表的A列中的相同元素，提取到B列中。用VB编程

Answer 1

同时按Alt+F11这二个键，进入VBA编辑界面，点击编辑画面的菜单：“插入”--“模块”，然后在里面完整复制下面的代码：
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列”，点“执行”