在excel中,如何把一个单元格的内容复制到多个单元格?
展开全部
一个变通的办法。
1、删除原来数据的空行。
2、为原来数据加A列序号,从1开始,1,2,3
3、复制原来数据,含序号,到原来数据下面,两遍。
4、按照序号排序,得到1、1、1,2、2、2,3、3、3的排列。就是你想要的结果了
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
空值
在编辑区输入=上一个单元格,如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
效果如下(点一图片可显示动画哦)
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
效果如下(点一图片可显示动画哦)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询