在空格中复制上一个单元格的内容

49526286 · 发表于 2015-1-13 16:28

发错了，不好意思

yaozong · 发表于 2015-1-13 16:30

本帖最后由 yaozong 于 2015-1-13 16:35 编辑

htqccw 发表于 2015-1-13 16:04
基本上达到了目的，重新整理了下原数据。请帮忙再看看，“不要输入最后一行数”。谢谢！

Sub zz()
Dim cl As Range
For Each cl In Intersect(Range("a4", Cells(Rows.Count, 1).End(3)), [a:a]).SpecialCells(4).Areas
Range(cl, cl(0)).FillDown
Range(cl, cl(0)).Offset(, 1).FillDown
Next
End Sub

复制代码

htqccw · 发表于 2015-1-13 16:43

yaozong 发表于 2015-1-13 16:30

挺成功！就是再一次点“按钮”出现“运行时错误”。再完美一下好吗。谢谢了

yaozong · 发表于 2015-1-13 16:47

htqccw 发表于 2015-1-13 16:43
挺成功！就是再一次点“按钮”出现“运行时错误”。再完美一下好吗。谢谢了

加一除错语句

Sub yy()
On Error Resume Next
Dim cl As Range
For Each cl In Intersect(Range("a4", Cells(Rows.Count, 1).End(3)), [a:a]).SpecialCells(4).Areas
Range(cl.Resize(cl.Cells.Count, 2), cl(0).Resize(1, 2)).FillDown
Next
End Sub

复制代码

simpman · 发表于 2015-1-13 23:40

yaozong 发表于 2015-1-13 16:47
加一除错语句

大侠好久不见，很想请你帮帮忙啊！

lrh788 · 发表于 2018-6-7 09:50

学习了！！！！！！！！

		自动登录	找回密码
密码			免费注册

[求助] 在空格中复制上一个单元格的内容