excel 将不为空的单元格填充所在列的第一个单元格的内容
统计一些数据，单元格中有不连续的空单元格，现在想把不为空的单元格填充这一列第一个单元格的内容，请大虾指教。
[解决办法]
刚刚发的代码改下比较好

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代码