excel 将不为空的单元格填充所在列的第一个单元格的内容解决方法

excel 将不为空的单元格填充所在列的第一个单元格的内容
统计一些数据，单元格中有不连续的空单元格，现在想把不为空的单元格填充这一列第一个单元格的内容，请大虾指教。
------解决方案--------------------
第一列，列A，你原来的数据。
第二列，列B，B1单元格输入公式 =if(a1="",$a$1,b1)

完了后，B1单元格直接往下拖，至此B列就完成了数据处理，直接粘贴值到A列，删除B列，搞定。
------解决方案--------------------
复制，选择性粘贴--跳过空单元格
------解决方案--------------------

引用:

Quote: 引用:

第一列，列A，你原来的数据。
第二列，列B，B1单元格输入公式 =if(a1="",$a$1,b1)

完了后，B1单元格直接往下拖，至此B列就完成了数据处理，直接粘贴值到A列，删除B列，搞定。

第一行是对的，但是往下拖的时候=if(a1="",$a$1,b1)中的b1也会自动增加变成b2，这样就不对了，还是想要显示b1
表中的数据是类似这样的

晕，我写错了，B1单元格输入的公式 =if(a1="",$a$1,a1)

你再试试拖拖看。
------解决方案--------------------

------解决方案--------------------
刚刚发的代码改下比较好

Sub test()

    For Each cell In Selection
        If cell.Value = "" Then cell.Value = Cells(1, cell.Column).Value
    Next

End Sub

这样命名更规范些
------解决方案--------------------
打开excel 设置宏安全性
关闭excel 打开excel
Alt + F11 //开启VB6.0
吧代码复制上去就可以了
------解决方案--------------------

引用:

Quote: 引用:

Quote: 引用:

Quote: 引用:

打开excel 设置宏安全性
关闭excel 打开excel
Alt + F11 //开启VB6.0
吧代码复制上去就可以了

设置完了宏安全性，代码保存的时候还是提示没有启用宏

你以为我写的第二句话是废话吗？

 你以为我没照做吗

拓展名是 .xlsx 的文件 无法保存vba代码