excel vba 中选中的单元格的代码

Question

想设置一个宏，可以在选中一个单元格之后按快捷键Ctrl+Q，从这个单元格开始后面五个单元格全部显示数字“8”且居中，但是选中的那个单元格的代码是什么？谢谢你

Answer 1

这样？

代码如下

Sub 宏3()

With Selection.Offset(0, 1).Resize(1, 5)
    .HorizontalAlignment = xlCenter
    .Value = 8
End With

End Sub

然后在视图-宏-查看宏-选项里设置快捷键

设置快捷键时需输入小写的q，否则快捷键会变成ctrl+shift+Q

Answer 2

请百度一下： VBA ActiveCell.Offset