当前光标所在 单元格 自动 向上、下移动 单元格加法 单元格传送

 

 完整代码：

1 Sub 按钮1_Click()
2 Cells(2, 9) = Cells(2, 9) + 1  '2行9列单元格=2行9列单元格原内容加1
3 Selection.Value = Application.Transpose([C3]) '把C3单元格内容 传给 选择的 单元格
4 ActiveCell.Offset(2, 0).Select    ' 光标所在位置单元格 自动向下移动2个
5 ActiveCell.Offset(-1, 0).Select  ' 光标所在位置单元格 自动向上移动1个
6 
7 End Sub

 

posted on 2020-08-08 10:52  不知所以随风飘动  阅读(298)  评论(0)  编辑  收藏  举报

导航