在excel中,如何把一个单元格的内容复制到多个单元格?
2015-05-05
展开全部
用VBA代码,如下:
Sub cr()
Dim n As Integer, i As Integer
n = Range("a65536").End(xlUp).Row
For i = 3 To n + 3 Step 3
Cells(i - 1, 1).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i, 1).Select
ActiveSheet.Paste
Cells(i + 1, 1).Select
ActiveSheet.Paste
Cells(i - 1, 2).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i, 2).Select
ActiveSheet.Paste
Cells(i + 1, 2).Select
ActiveSheet.Paste
Next
End Sub
效果如下(点一图片可显示动画哦)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选中需要填充的区域,定位 空值 在编辑区输入=上一个单元格,如527在A1 ,就输入=a1 然后按Ctrl+enter
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询