关于excel按钮宏的追问，如果改动单元格的位置该怎么修改宏？

Sub 添加()
Dim arr, i, j, v, ok
If Cells(2, 1) <> "" Then
arr = Cells(2, 1).CurrentRegion
v = arr(1, 1)
ok = True
For i = 2 To UBound(arr)
If arr(i, 1) = v Then
ok = False
Exit For
End If
Next i
If ok Then
i = UBound(arr) + 2
Cells(i, 1) = v
Cells(i, 2) = Cells(i - 1, 2) + 1
Cells(2, 2).Formula ="=VLOOKUP(A2,A3:B" & i & ",2,FALSE)"
End If
End If
End Sub
成功了，谢谢你！
试了一下，如果改动单元格的位置，单单改动Cells(2,2).Formula = "=VLOOKUP(A2,A3:B" & i & ",2,FALSE)"这一句中的“A2,A3:B”是不能成功的，送佛送到西，请继续指点，应该改动代码中的哪些部份？

这个不能随便改动位置的，否则无法使用这段代码

1.按钮的本质就是一个宏，所以在制作按钮之前，我们先来录制一个宏，把宏都准备好了，就可以制作按钮了。先打开一个表格如图所示，选中大标题，接下来我们在菜单栏上执行：开发工具－－宏 　　2.设置宏名称为【大标题】，保存位置为【个人宏工作簿】，这样打开任意的excel就能看到这个宏，如果保存在【当前工作簿】就只能在这个excel文件中看到该宏了。 　　3.右键单击已经选中的单元格，在打开的右键菜单中，选择【设置单元格格式】 　　4.在打开的单元格格式对话框中，切换到对齐选项下，然后设置水平对齐、垂直对齐、合并单元格。 　　5.切换到字体选项下，然后设置字形和字号，最后点击确定按钮。字形和字号的设置要符合大标题醒目的要求。 　　6.设置好了大标题的格式以后，我们就点击开发工具下的【停止录制】 　　接下来再录制一个宏，这回是设置小标题的格式，设置流畅图我已经贴在下面了，由于和上面的步骤一样，这里就不讲解了。 　　7.录制好宏以后，我们在菜单栏上执行：开发工具－－插入，在打开的列表中选择按钮。 　　拖动鼠标就可以绘制出一个按钮，同时会打开一个指定宏的对话框，选择【大标题】这个宏，然后点击确定按钮

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息