如何从动态起点填写选择？

Question

我有以下代码，以selectA列到E列的数据为起点，将是动态的。

ActiveSheet.Columns("A:E").SpecialCells(xlCellTypeConstants, 23).Select

然后我怎样才能将这些数据填写到 F 列的长度？

示例电子表格。

select离子的起点并不总是来自第 2 行。

例如，数据可能如下所示。

Answer 1

将“Sheet1”重命名为您的数据所在的 sheet 名称

Set ws = ThisWorkbook.Worksheets("Sheet1")

LastRowA = ws.Range("B" & Rows.count).End(xlUp).Row 'Finds last used row of column A
LastRowF = ws.Range("F" & Rows.count).End(xlUp).Row 'Finds last used row of column F

'Fills down column by column
ws.Range("A" & LastRowA).AutoFill Destination:=ws.Range("A" & LastRowA & ":A" & LastRowF), Type:=xlFillValues
ws.Range("B" & LastRowA).AutoFill Destination:=ws.Range("B" & LastRowA & ":B" & LastRowF), Type:=xlFillValues
ws.Range("C" & LastRowA).AutoFill Destination:=ws.Range("C" & LastRowA & ":C" & LastRowF), Type:=xlFillValues
ws.Range("D" & LastRowA).AutoFill Destination:=ws.Range("D" & LastRowA & ":D" & LastRowF), Type:=xlFillValues
ws.Range("E" & LastRowA).AutoFill Destination:=ws.Range("E" & LastRowA & ":E" & LastRowF), Type:=xlFillValues

如何从动态起点填写选择？

How can I fill down a selection from dynamic starting point?

vba

autofill

selection