Excel 使用FillUp函数

Excel 使用FillUp函数,excel,vba,Excel,Vba,在我拥有的电子表格中,我试图在不覆盖ABC的情况下将FillUp函数应用于列I(类型)。有没有一种方法可以在VBA中使用 如果有人有任何建议,我们将不胜感激 您可以尝试以下代码: Sub macro1() Dim lastrow, firstrow As Long lastrow = Range("G" & Rows.Count).End(xlUp).Row firstrow = 2 While firstrow <= lastrow Range("I" & f

在我拥有的电子表格中,我试图在不覆盖ABC的情况下将FillUp函数应用于列I(类型)。有没有一种方法可以在VBA中使用

如果有人有任何建议,我们将不胜感激


您可以尝试以下代码:

Sub macro1()

Dim lastrow, firstrow As Long
lastrow = Range("G" & Rows.Count).End(xlUp).Row
firstrow = 2

While firstrow <= lastrow
    Range("I" & firstrow).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillUp
    Selection.End(xlDown).Select
    firstrow = ActiveCell.Offset(1, 0).Row
Wend


End Sub
Sub宏1()
昏暗的最后一排,第一排一样长
lastrow=范围(“G”和Rows.Count).End(xlUp).Row
第一行=2

当第一行时,如果单元格中已经有数据并且您不想立即覆盖,则无法填充整个列。您可以遍历每个单元格并检查其值是否为null,然后给它一个值,或者使用自动填充循环。几乎正是您想要的(只需将其返工为
填充
。在
区域中循环
,并使用
偏移
调整大小
。这不会太难=)