杭州交通信息网世界重大药品安全事故:难度：如何在EXCEL表中做到如此填充
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 14:27:33
补充：每3行有一个新货号，每2个货号间为空白行，现在要把货号向下填充空白行，如何做到？
要每隔2行向下填充一次，我想要用“宏”或者...才能做到
要每隔2行向下填充一次，我想要用“宏”或者...才能做到
你说的是什么意思？货号指的是什么？
我理解你的意思是
1
1
1
2
2
2
3
3
3
4
4
4
5
5
5
6
6
6
……
把中间空行都填充成2吗？如果是这个意思我来一试。
为程序简单好懂（关键我也嫌麻烦^_^），假设货号在A列，起始行是1行。
代码简单的要死：
Sub noky()
Dim j As Integer
For j = 1 To Range("a65536").End(xlUp).Row
If Cells(j, 1) = "" Then
Cells(j, 1) = Cells(j - 1, 1)
End If
Next
End Sub
使用时，货号在第几列就把cells()中逗号后头的1改成几
他实现的功能是：
先返回最后一行未用到单元格的行号
判断之前所有单元格的值，如果为空就把前面单元格的值填充过来。
还有什么不合适的地方找我wzz3@netease.com
这个程序太简单了，不费力也不费脑，还有15分:^_^
打好6行。
然后选择这六行。然后操作就和连续的货号一样了
先编辑好一个例子，然后用鼠标选择你已经编辑好的单元格，如“A1-A6”然后在最后一个单元格的右下角待鼠标出现一个“＋”以后，向下拉动鼠标
如果没用自动累加，你在拖动鼠标时同时按住“Ctrl”