EXCEL中创建个按钮，能实现把A1数据按次点击分别复制到B1、B2、B3、B4里

Question

也就是说点一次把数据粘贴到B1、再点一次粘贴到B2，以此类推，4次一循环。

Answer 1

编了一段代码给你

Sub Macro1()
a = 0
For n = 1 To 4
If Range("B" & n).Value = "" Then
Range("B" & n).Value = Range("A1")
a = 1
Exit For
End If
Next n
If a = 0 Then
Range("B2:B4").Value = ""
Range("B1").Value = Range("A1")
End If
End Sub本回答被提问者采纳

Answer 2

Sub CommandButton1_Click()
[a1].Copy
If [b1].Value <> [a1].Value Then
[b1].Select
ActiveSheet.Paste
ElseIf [b2].Value <> [a1].Value Then
[b2].Select
ActiveSheet.Paste
ElseIf [b3].Value <> [a1].Value Then
[b3].Select
ActiveSheet.Paste
ElseIf [b4].Value <> [a1].Value Then
[b4].Select
ActiveSheet.Paste
End If
End Sub本回答被网友采纳