[求助]如何让有空格的行自动复制上一行单元格内容

chenyj

如何自动生成表内黄色方块内的内容 85aMueDf.rar (1.7 KB, 下载次数: 140)

2007-9-15 10:07 上传

点击文件名下载附件
[求助]如何让有空格的行自动复制上一行单元格内容

传说中的男子

F5－>定位条件－>空值－>＝D2－>ctrl＋d

dxy27

gh5vdMRS.rar (8.7 KB, 下载次数: 155)

2007-9-15 10:28 上传

点击文件名下载附件
[求助]如何让有空格的行自动复制上一行单元格内容

liujy

参考下图操作：

chenyj

谢谢

northwolves

Cells.SpecialCells(4) = "=r[-1]c"

hhhhhk

请教这个操作如何通过VBA实现啊,谢谢.

oobird

以下是引用hhhhhk在2007-9-16 16:57:12的发言：
请教这个操作如何通过VBA实现啊,谢谢.

6楼不就是了吗？

hnyxlb

如何让Excel自动填充上一行的内容到下面的一个或多个空行中？
　　针对这样的问题，您可以使用复制粘贴的办法；但是，本人遇到的问题是，数据量有接近一万行，并且，部分行有内容，部分行去没有内容。
　　那么，如此多变的数据，我们如何才能做到，一次性让空的单元格，都分别填充其上方有数据的单元格内容呢？
　　我首先VBA，下面，我们先看下表吧！
  http://www.dzwebs.net/2842.html
　　认真瞧一瞧，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'针对每个工作表实现自动填充。

gegecc

非常感谢，昨天我还花了半天时间一个个的拉，这样快多了。