VBA-定义动态范围

Question

我是VBA的新手，需要帮助。

我需要将单元格E2中的数据复制到其他数据的相同长度-在这种情况下，第22行。每次我使用宏时，这都会改变，因此需要读取复制的长度使用周围的细胞。

任何帮助都会很棒！

Answer 1

以下应执行您期望的操作：

Sub foo()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
'declare and set the worksheet you are working with, amend as required
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'get the last row with data on column A
ws.Range("E2").AutoFill Destination:=ws.Range("E2:E" & LastRow)
'fill the cells until the last row
End Sub