Question

我需要创建一个宏，该宏可以从F列到I列获取数据，并将其自动填充到E列中包含数据的最后一个单元格。下面的代码几乎可以满足我的需要。但是，我希望能够将此宏与F：I列中的其他数据一起使用。我该怎么办？

暗淡无聊

lastrow = Range（“ e”＆Rows.Count）.End（xlUp）.Row

将x（1到4）变暗

With ThisWorkbook.Sheets("sheet1")
x(1) = Range("f2")
x(2) = Range("g2")
x(3) = Range("H2")
x(4) = Range("I2")

.Range("F3:i3").Formula = x
.Range("f3:i" & lastrow).FillDown

结尾为

Answer 1

像这样：：D

With ThisWorkbook.Sheets("sheet1")
    lastrow = Range("E" & Rows.Count).End(xlUp).Row

    For i = 3 To lastrow
        .Range("F" & i).Formula = .Range("F2").Formula
        .Range("G" & i).Formula = .Range("G2").Formula
        .Range("H" & i).Formula = .Range("H2").Formula
        .Range("I" & i).Formula = .Range("I2").Formula
    Next i

End With

如何创建宏以自动填充从顶部行到最后一个相邻列的数据？

1 个答案: