如何在Excel中复制不同的行? 我在AD组列中有单个值,我需要在下面的行中的空白单元格中复制。每个广告组名称应有3个

如何在Excel中复制不同的行? 我在AD组列中有单个值,我需要在下面的行中的空白单元格中复制。每个广告组名称应有3个,excel,excel-formula,Excel,Excel Formula,我的第一个屏幕截图显示了当前的情况: 我的第二个屏幕截图显示了我需要它的方式: 有3万行,所以我需要一个公式或动态方法来实现这一点。以下是我的答案: 使用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

我的第一个屏幕截图显示了当前的情况:

我的第二个屏幕截图显示了我需要它的方式:

有3万行,所以我需要一个公式或动态方法来实现这一点。

以下是我的答案:

使用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所说):

您将获得以下信息:


您只需使用
F5
>>
特殊
>
空格
,选择区域范围,然后将公式设置为等于上面的单元格(=A3中的A2)。@ElbertVillarreal使用该特殊>空格,我仍然需要为每个空格键入上面单元格的名称,对吗?在这种情况下,是的。。。但是请检查我的答案,让我知道我的答案是否对你有好处。记住我给你的最后一个答案。使用
VBA
你不需要键入任何内容。可以这样说,在手动方法中,需要[Ctrl]+[Enter]将公式一次放入所有单元格。您也可以选择整个列;Excel只会在UsedRange中找到空白。你是对的@Jeeped,我错过了!