Excel空行自动填充上一单元格的内容

　　如何让Excel自动填充上一行的内容到下面的一个或多个空行中？

　　针对这样的问题，您可以使用复制粘贴的办法；但是，本人遇到的问题是，数据量有接近一万行，并且，部分行有内容，部分行去没有内容。

　　那么，如此多变的数据，我们如何才能做到，一次性让空的单元格，都分别填充其上方有数据的单元格内容呢？

　　我首先VBA，下面，我们先看下表吧！

　　认真瞧一瞧，AB两列，间断的或无规律的出现，部分单元格有内容，部分单元格是没有内容的，并且，整个表格的数据量，接近一万行。现在，我们要做的就是，如何让这么多的空单元格，自动填充上其上方有内容的数据呢？

　　我们可以这样来做，在表格中增加一个按钮，如下图！假设增加一个标题为“自动填充AB列空的”。

　　只要一点击该功能按钮，那么，AB两列所有的空的单元格则自动填上该填写的内容。

　　好了，界面就说到这个地方，下面我们直接参阅代码吧！按钮的代码如下：

　　Private Sub CommandButton1_Click()
　　Dim MyOldValue1 As String
　　Dim MyOldValue2 As String
　　For i = 1 To Worksheets.Count
　　    MyOldValue1 = Trim(Worksheets(i).Cells(2, 1).Value)
　　    MyOldValue2 = Trim(Worksheets(i).Cells(2, 2).Value)
　　Next i
　　For i = 1 To Worksheets.Count
　　  For j = 3 To Sheets(i).UsedRange.Rows.Count
　　      If (Trim(Worksheets(i).Cells(j, 1).Value) = "") Then
  　　       Worksheets(i).Cells(j, 1).Value = MyOldValue1
  　　    Else
   　　      MyOldValue1 = Worksheets(i).Cells(j, 1).Value
　　      End If
　　      If (Trim(Worksheets(i).Cells(j, 2).Value) = "") Then
　　         Worksheets(i).Cells(j, 2).Value = MyOldValue2
　　      Else
　　         MyOldValue2 = Worksheets(i).Cells(j, 2).Value
　　      End If
　　  Next j
　　Next i
　　End Sub

　　部分代码解释：

　　For i = 1 To Worksheets.Count'此自动填充功能，对工作薄中的所有工作表都有效。

　　For j = 3 To Sheets(i).UsedRange.Rows.Count'针对每个工作表实现自动填充。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18