excel中用VB宏自动填充选中区域
来源:百度知道 编辑:UC知道 时间:2024/05/04 17:30:56
我要在EXCEL中,用VB宏读取我鼠标选中的任意一列N行的序号,然后向选中的所有单元格中填充选中区域的第一格的值。
二楼的代码能够实现一起填值,但是
我需要对所有单元格循环依次填值,因为我需要这些填写动作触发我的另一段代码
二楼的代码能够实现一起填值,但是
我需要对所有单元格循环依次填值,因为我需要这些填写动作触发我的另一段代码
我用了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
满足你循环依次赋值的要求,自己的代码插进去或调用,随便你。
不明白你所说的具体意思,若从你的问题字面上理解,是用一个单元格的内容去填充所有选择区域。
这样做好象没有实际意义呀?对不起,不能回答。
建一个按钮,输入以下代码。
Private Sub CommandButton1_Click()
x = ActiveCell.Value
Selection = x
End Sub
这还需要用啥VB宏来完成,快捷键就搞定了。
向下填充:选中填充单元格,按Ctrl+D
向右填充:选中填充单元格,按Ctrl+R
如果你需要看填充的宏代码,你可以用录制宏的办法,然后按Alt+F11查看。