Question

excel中用VB宏自动填充选中区域

我要在EXCEL中，用VB宏读取我鼠标选中的任意一列N行的序号，然后向选中的所有单元格中填充选中区域的第一格的值。
二楼的代码能够实现一起填值，但是
我需要对所有单元格循环依次填值，因为我需要这些填写动作触发我的另一段代码

Answer 1

这还需要用啥VB宏来完成，快捷键就搞定了。
向下填充：选中填充单元格，按Ctrl+D
向右填充：选中填充单元格，按Ctrl+R
如果你需要看填充的宏代码，你可以用录制宏的办法，然后按Alt+F11查看。

Answer 2

我用了SelectionChange来触发，
自己会编程的，要改成别的触发，或用宏应该没问题吧。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Row
b = Target.Row + Target.Rows.Count - 1
c = Target.Column
d = Target.Column + Target.Columns.Count - 1

For I = a To b
For J = c To d
Cells(I, J) = Cells(a, c)
Next J
Next I

End Sub

满足你循环依次赋值的要求，自己的代码插进去或调用，随便你。

Answer 3

不明白你所说的具体意思，若从你的问题字面上理解，是用一个单元格的内容去填充所有选择区域。

这样做好象没有实际意义呀？对不起，不能回答。

Answer 4

建一个按钮，输入以下代码。

Private Sub CommandButton1_Click()
x = ActiveCell.Value
Selection = x
End Sub