如何在Excel中复制不同的行？

Question

我在广告组列中有单个值，我需要在下面行的空白单元格中复制。每个广告组名称应该有3个。

我的第一个屏幕截图显示了目前的情况：

我的第二张截图显示了我的需求：

有30k行，所以我需要一个公式或动态方法来实现这一目标。

Answer 1

以下是我的回答：

使用VBA：

Sub selectBlankCells()
    Dim r 'to store the number of the last row of data
    Dim rng As Range

    r = Range("A1").End(xlDown).Row 'to find the last row
    Set rng = Range(Cells(1, 2), Cells(r, 2)) ' set the range of column B, of the data
    rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" ' this is where you put the formula to
                                                               'set the data of above cell in every empty cell of
                                                               'column B
End Sub

或者您可以使用Excel选项：

选择B列的数据，从最后一行到单元格B1，然后按F5，此窗口出现。

然后按Special...

之后，选择Blanks和OK

您将只选择空白单元格，然后您可以将公式连接到活动单元格中的上述单元格。

这样使用（[Ctrl] + [Enter]需要将公式一次性放入所有单元格中，如Jeeped所说）：

你会得到这个：