我现在有个excel表，请问怎么样编辑宏能使得表内的空白处自动复制上一行的内容？

来源：百度知道 编辑：UC知道 时间：2024/06/23 21:37:59
现有一excel表格。
举例：比如excel内箱子编号及东西如下：
123 苹果
梨
456 香蕉
草莓
葡萄
789 西瓜
现在要在空白处填上箱号，就变成
123 苹果
123 梨
456 香蕉
456 草莓
456 葡萄
789 西瓜

表内内容巨大，一个个填非得烦死。怎样编制一个宏能自动往空白处复制上一行的东西啊？？
各位老兄，我的那个表内容很巨大啊，而且箱子对应的东西有些一样，有很多是不一样的，你们的方法用起来都很慢的。。。

再补充一下，baidu提交上去的就变了。
数字是箱号。是第一列
第二列是箱子内东西，有些占据1行有些占据N行，但箱号目前我只在第一个物品那一行写了，其他行是空着的

这个啊,不用编辑啊,你用鼠标点上上面的表格,把鼠标放到这个表格的右下脚,当出现一个黑心的十字的时候,按住CTRL,向下面的表格拖然后再松开就可以了

例这引起数据在A1:A500,选中A1:A500,CTRL+G,定位条件,空值,确定,在编辑栏输入=A1,CTRL+回车.选中A列,复制,选择性粘贴,数值,确定.(注:A1是数据区域中第一个空单元格上一个单元格,例:如果第一个空单元格在A5单元格,那么就在编辑栏输入=A4)

=IF(OR(B1="苹果",B1="梨"),123,IF(OR(B1="香蕉",B1="草莓",B1="葡萄"),456,IF(B1="西瓜",789,"")))

楼主用这个公式吧。。解释与说明如下：
1、把公式复制到“箱子编号”下的第一行数据单元格内；
2、用“东西”第一行数据单元格的实际地址替换公式中的B1；
3、在“箱子编号”列，向下复制刚才输入的公式到最后一行。
4、如果箱子编号或货物超过公式中列举的内容，自己参照修改一下公式即可。。

梨、草莓等是在第一列还是在第二列？
========================================
做好了，如果第二列不是在B列，就将第一句里的B1改为第二列第一个单元的坐标就可以了。
Sub 填充空白箱号()
Range("B1").Select
Do Until ActiveCell = 空值
If ActiveCell.Offset(0, -1) = 空值 Then
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

这么多人的回答应该有正确的。楼主要是不明白，就试试我的方法吧
既然“箱号目前我只在第一个物品那一行