1、如图,A1单元格内容是“百度”。把
这个内容复制到从B1到F11多个单元格中。
2、复制A1单元格内容,然后选中A1到F11多个单元格。在编辑栏,右键,粘贴。
3、键盘快捷键“ctrl+Enter”即可。
一个变通的办法。
1、删除原来数据的空行。
2、为原来数据加A列序号,从1开始,1,2,3
3、复制原来数据,含序号,到原来数据下面,两遍。
4、按照序号排序,得到1、1、1,2、2、2,3、3、3的排列。就是你想要的结果了
选中要复制的区域,用Ctrl+G定位,“定位条件”为“空值”,如下图,输入=“”后,用Ctrl+enter两键一起按,就会出来你要的数据了
选中需要填充的区域,定位
空值
在编辑区输入=上一个单元格,如527在A1
,就输入=a1
然后按Ctrl+enter
用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
效果如下(点一图片可显示动画哦)