excelmacros栏自动填充

我有一个电子表格，我正在清理和使用macros来帮助。 我的专栏“C”有温度数据。 像所有的数据一样，有一些缺失。 我将如何编写一个macros来自动填充以前的数据丢失的地方？

例如：

CC 1 37 1 37 2 35 2 35 3 --------> 3 35 4 37 4 37 5 36 5 36 

现场C3已经填满了C2的数据。

感谢您的帮助。

Answer 1

试试这个：

 Sub FixC() Dim N As Long, i As Long N = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To N If Cells(i, "C") = "" Then Cells(i, "C") = Cells(i - 1, "C") End If Next i End Sub 

Answer 2

你真的需要VBA吗？

做这个

1. selectCol C
2. 按下Ctrl + G
3. 点击Special
4. 下一步点击Blanks
5. 点击确定
6. 所有空单元格现在被选中。 按=键，然后按向上箭头键
7. 最后按下Ctrl + Tab + Enter ，就完成了。

截图

Answer 3

我将如何写这个macros：
这只包含片段。

遍历列中的所有单元格：
for each cell in ActiveSheet.Columns(1).Cells

如果单元格值不为空 – >将该值保存到variables中
If cell.value <> Empty then lastCellValue = cell.value

如果单元格值为空 – >将保存的单元格值写入单元格
Else cell.value = lastCellValue

也：
如果一行中多于x（例如20）个单元格为空，则从循环中断开