在列中查找值，填充'直到非空白单元格

我无法find一种方法来使用macros来执行以下操作：

我正在find列A中最后一个被填充的行，并且偏移了一列以便在列B中粘贴一个值。我想要将那些放在列B中的文本填满/复制到上面的所有空单元，直到一个非空白的单元格。

每个循环在列B中插入一个不同的string，这就是为什么我希望find一种方法来将该string粘贴到行上，直到遇到非空白单元格为止，

例如：

AB Header Header 9/30/14 9/30/14 9/30/14 9/30/14 text1 9/30/14 9/30/14 9/30/14 9/30/14 text2 

看起来像：

 AB Header Header 9/30/14 text1 9/30/14 text1 9/30/14 text1 9/30/14 text1 9/30/14 text2 9/30/14 text2 9/30/14 text2 9/30/14 text2 

道歉，如果这是非常混乱！ 任何帮助将不胜感激！

Answer 1

没有macros（虽然可以被logging）：

selectColumnB，Ctrl + G，Special，select空白，OK， = ， Down ，Ctrl + Enter。

Answer 2

我非常喜欢pnuts的解决scheme，并build议如果你的数据如图所示简单，那么如果你正在寻找一个VBA解决scheme，这个VBA代码也应该能够提供所需的结果：

 Sub tgr() Dim rngBlanks As Range Dim BlankArea As Range Set rngBlanks = Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlCellTypeBlanks) For Each BlankArea In rngBlanks.Areas BlankArea.Value = BlankArea.Cells(1).Offset(BlankArea.Cells.Count).Value Next BlankArea End Sub 

Answer 3

尝试这样的，编辑，以适应你的口味：

 Sub answer() lastA = Range("A65000").End(xlUp).Row lastB = Range("B" & lastA).End(xlUp).Row + 1 value2Paste = "Whatever U want" Range("B" & lastB & ":B" & lastA) = value2Paste End Sub