Select A 列最后一个非空单元格 --> 根据 C 列最后一个非空单元格填充 A 列下方的空单元格 --> 重复
Select last non-empty cell in column A --> Fill down empty cells below in column A, based on last non-empty cell in column C --> Repeat
我想填写 Excel 中 A 列的最后一个非空单元格值。一旦达到 C 列中最后一个非空单元格的计数,它应该停止向下填充。这是一个示例:
它应该是这样的:
想对最后一个非空单元格重复此操作;
这是我最接近我正在寻找的东西,但我不想每次都 select A2。我想每次 select A 列中的最后一个非空单元格。
Dim lrowc As Integer
lrowc = SavedData.Cells(Rows.Count, "C").End(xlUp).Row
SavedData.Range("A2:A" & lrowc).FillDown
似乎与您对 C 列使用的原理相同 - 找到 A 中最后使用的单元格,然后使用 FillDown
:
Sub x()
Dim lrowc As Long, n As Long
With SavedData 'assume defined somewhere
n = .Cells(Rows.Count, "A").End(xlUp).Row 'last filled cell in A
lrowc = .Cells(Rows.Count, "C").End(xlUp).Row 'last filled cell in C
.Range("A" & n & ":A" & lrowc).FillDown
End With
End Sub
我想填写 Excel 中 A 列的最后一个非空单元格值。一旦达到 C 列中最后一个非空单元格的计数,它应该停止向下填充。这是一个示例:
它应该是这样的:
想对最后一个非空单元格重复此操作;
这是我最接近我正在寻找的东西,但我不想每次都 select A2。我想每次 select A 列中的最后一个非空单元格。
Dim lrowc As Integer
lrowc = SavedData.Cells(Rows.Count, "C").End(xlUp).Row
SavedData.Range("A2:A" & lrowc).FillDown
似乎与您对 C 列使用的原理相同 - 找到 A 中最后使用的单元格,然后使用 FillDown
:
Sub x()
Dim lrowc As Long, n As Long
With SavedData 'assume defined somewhere
n = .Cells(Rows.Count, "A").End(xlUp).Row 'last filled cell in A
lrowc = .Cells(Rows.Count, "C").End(xlUp).Row 'last filled cell in C
.Range("A" & n & ":A" & lrowc).FillDown
End With
End Sub