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

Question

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

这是我有的:

我想代码填写之间的所有单元格,如下所示:

因此,正如您所看到的,我希望中间的所有单元格都填充与两个角单元格相同的值.

很感谢任何形式的帮助!提前致谢.

Answer 1

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

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