请教大佬，如何vba实现全自动空白区域复制粘贴？

lizhizilt

请问一下各位大佬，老师，我需要处理很多个有着如我示例粘贴出来的数据，大致上就是前面是一种商品的具体属性数据，后面有他的子sku属性的数据，然后就会有几行前面应该填父sku信息的数据，我现在为了要编辑处理的数据，需要将每个商品的子sku前面的父sku信息补全，如果我手动支付粘贴的话，会很痛苦，现在就是想写一个vba代码，（例如讲将单元格A1到子sku前的信息，子sku在C列，那么就是将A1到C1这些数据，复制到下一个商品A4上到A1之间空白的两列），从而批量完成这个信息补全工作。
因为我刚刚才学了那个《别怕，vba其实很简单》，目前不是很熟练，一下子写不出来，所以上来论坛问问看，看能不能给点提示，或者请高手写段断码，帮助我完成自己编写的代码，谢谢！！！

lizhizilt

补充个文档

08yj2001

不需要VBA，有捷径。选 中B\C列，按ctrl+G，选择定位空值，然后=a1，按ctrl+enter就可以搞定

lizhizilt

08yj2001 发表于 2018-8-11 16:52
不需要VBA，有捷径。选 中B\C列，按ctrl+G，选择定位空值，然后=a1，按ctrl+enter就可以搞定

感谢楼上大神，是可以的，但是如果数据一多的话，这种方法会不会还是有点麻烦呢？我测试了一下，这种是引用了上面的数据到空白的区域吧？我如果接着处理的话，会不会出问题，还是需要我重新新建一个表格来只粘贴数值这样来操作呢？

lizhizilt

我使用了录制宏的方法，获得了vba的代码，就是选取了区域之后，然后定位到空值区域，然后引用了数据，

Public Sub qq()
    Range("A2").CurrentRegion.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
End Sub

zhang6029

又学了一招。