VBA填写两个单元格之间的所有单元格

Question

我目前正在尝试编写一些 VBA 代码，该代码将使用两个单元格的值填充两个单元格之间的所有单元格。

这是我所拥有的:

我希望代码能够像这样填写之间的所有单元格:

因此，正如您所看到的，我希望中间的所有单元格都填写为与两个角单元格相同的值。

非常感谢任何帮助!提前致谢。

Answer 1

您可以使用 Range 对象的 SpecialCells() 方法:

Sub main()
    Dim cell As Range

    For Each cell In Intersect(Columns(1), ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).EntireRow)
        With cell.EntireRow.SpecialCells(xlCellTypeConstants)
            Range(.Areas(1), .Areas(2)).Value = .Areas(1).Value
        End With
    Next
End Sub