[已解决]快速填入计件数值

中式面点

请问各位大侠，我想将每天的计件数值填入每个人的名下。但是不覆盖休息的时间。
例如：将c3数值快速的填入到c4到c13这列中，但是不改变表格中人员休息时间。一天一天的填充还是有什么更快捷的方法，等大侠帮助。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-5 09:44

是这样吗

跳转到最佳答案楼层

中式面点

有没有大侠可以帮我啊？

爱疯

上传excel文件，手动填1个看看是什么效果？

中式面点

爱疯 发表于 2016-2-5 09:20
上传excel文件，手动填1个看看是什么效果？

好的。谢谢大侠。

爱疯

是这样吗

sry660

中式面点 发表于 2016-2-5 09:41
好的。谢谢大侠。

详见附件

1. Sub 数据填充()
   
2.     Dim arr, i&, j&
   
3.     arr = [a2].CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         For j = 3 To UBound(arr, 2)
   
6.             If arr(i, j) = "" Then arr(i, j) = Round(arr(2, j), 2)
   
7.         Next
   
8.     Next
   
9.     [a2].Resize(UBound(arr), UBound(arr, 2)) = arr
   
10. End Sub

复制代码

中式面点

非常好。谢谢。