自动填充的问题，求高手指教

李子子子

问题1.rar (10.28 KB, 下载次数: 27)

2013-6-6 18:20 上传

点击文件名下载附件

问题.rar (9.6 KB, 下载次数: 22)

2013-6-6 16:18 上传

点击文件名下载附件
附件

也许这个问题对你来说很简单，对我来说。工作中却很烦琐。麻烦把详细方法教我。谢谢！{:soso_e121:}

笑着...两年过去

1. 问题一：附件中找不到下拉的规则，只有你懂,so，你手动吧
   
2. 问题二：粘贴后，选中E列，ctrl + g定位条件空值-确定，右击删除-整行,完工

复制代码

李子子子

笑着...两年过去 发表于 2013-6-6 16:50

下拉的规定就是复制粘贴的过程，跟第一件商品第一行相同。就这么简单

符合

对于问题2，我不知道是怎么产生的，但解决很简单，用易用宝的“删除空行空列”功能。对于问题1，依我看，好像有难度，你的数据间没有必然联系，就是手动下拉复制粘贴好象也不行，只有手动录入。不知你是怎么向下拉实现粘贴的。如果数据之间有联系，请讲清楚，或者你描述一下，你要录入某数据，你是怎么向下拉实现粘贴的。

笑着...两年过去

1. 那样的话，问题1就简单了，先中那两列中所有的空单元格，选完后，看一下名称栏（就你最后先的那个单元格的位置），假如是B31,那么你就在编辑栏中写下公式=B30,然后同时按下ctrl + enter完工

复制代码

李子子子

符合 发表于 2013-6-6 17:04
对于问题2，我不知道是怎么产生的，但解决很简单，用易用宝的“删除空行空列”功能。对于问题1，依我看，好 ...

易用宝，还真没见过、没用过。很常用吗？

李子子子

笑着...两年过去 发表于 2013-6-6 17:15

这位大哥谢谢您的回答，问题2我已经学会，很感谢您！
但问题1，得出来不是我想要的结果
现在我依照 符合同学的建议  把想要的结果放在问题1  Sheet1档
麻烦您了……

符合

李子子子 发表于 2013-6-6 18:25
易用宝，还真没见过、没用过。很常用吗？

论坛上方有。功能很多。

符合

   Sub tc填充()
       Dim i As Integer
       For i = 3 To Application.CountA([c2:c9999])  '最大值9999根据表所用的数据行数可减小或扩
                                                                   大，或红色部分直接用 to 9999。
     If  Range("B" & i) = ""  And Range("D" & i) <> ""  Then
         Range("B" & i) = Range("B" & i - 1)
         Range("C" & i) = Range("C" & i - 1)
     End If
        Next i
   End Sub
已测试，你试试。加个按钮，就方便了。
不过要将合并单元格格式解除，直接用易用宝删除空行就可解除。如果觉得字太小，可以调整单元格高度或宽度，你这表没必要用合并单元格。

符合

李子子子 发表于 2013-6-6 18:18
这位大哥谢谢您的回答，问题2我已经学会，很感谢您！
但问题1，得出来不是我想要的结果
现在我依照 符 ...

5楼的方法很好用。