vba - 应用公式，然后自动填充数据，直到列 : VBA 中的最后一个可见单元格

Question

我使用此代码应用长度公式，然后 Autofill直到最后一个可见单元格但出现错误

Runtime Error '1004'- Method 'Range' of object_Global' failed

代码

Range("C2").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
Selection.AutoFill Destination:=Range("C2:C" & Lastrow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Answer 1

从您的代码看来，您需要 COl B 中单元格的长度。下面的代码对我有用。

Sub x()
    Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=LEN(RC[-1])"
End Sub