宏码校正

Question

我有一个用于Excel的宏，它为我做了一些自动填充。它也继续通过B列：

Sub Autofill()
ActiveSheet.Columns("A:A").Select
Selection.Unmerge
ActiveSheet.Outline.ShowLevels RowLevels:=2
With Range(Range("A8"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With

End Sub

代码是否可以更改为仅查看A列？

Answer 1

现在，这声明：

With Range(Range("A8"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))

查看A列和B列

从Range("A8")开始，到B列Cells(Rows.Count,3)中最后一个使用的单元格结尾 - C列中的最后一行 - .End(xlup) - 首先使用了来自底部的单元格列C - .Offset(,-1) - 向左偏移一列（B列）。

要使其成为A列，只需写下：

With Range(Range("A8"), Cells(Rows.Count, 1).End(xlUp))