Question

如何把excel应用在一个单元格的宏，变成对一列的每个单元格都生效呢？

Sub test()
Application.DisplayAlerts = False
On Error GoTo endline
Set d = CreateObject("scripting.dictionary")
Set x = Application.InputBox("", "选择单元格", , , , , , 8)
If x.Count > 1 Then MsgBox "只能选择单个单元格！": GoTo endline
If Len(x) = 0 Then MsgBox "所选为空值！": GoTo endline
Set y = Application.InputBox("", "选择放置结果的区域", , , , , , 8)
arr = VBA.Split(x, ",")
For Each Rng In arr
d(Rng) = ""
Next
Range(y.Address)(1).Range("a1") = VBA.Join(d.keys, "；")
d.RemoveAll
endline:
Application.DisplayAlerts = True
End Sub

Answer 1

去掉 "只能选择单个单元格！"那句，加个循环，For each cel in x .... Next

Answer 2

写个循环就好了

追问

就是不知道怎么加，兄弟，能帮个忙吗？

追答

不是很理解你想要的最终结果，你这个代码 是要把一个单元格里的诸如1，2 换到另一个单元格里变为1；2 你想要的是什么样的结果呢？是你想选中1列 然后把这一列的数字1，2 换到另一列？