在VBA中自动填充

Sub AutoFillExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '假设要在名为"Sheet1"的工作表中进行填充
    
    '设置填充起始单元格和填充结束单元格
    Dim startCell As Range
    Dim endCell As Range
    Set startCell = ws.Range("A1") '起始单元格
    Set endCell = ws.Range("A10") '结束单元格
    
    '使用AutoFill方法进行填充
    ws.Range(startCell, endCell).AutoFill Destination:=ws.Range(startCell, endCell).Resize(, 2) '填充到相邻的两列
    
    '或者可以使用以下代码进行填充
    'ws.Range(startCell, endCell).AutoFill Destination:=ws.Range(startCell, endCell).Offset(, 1) '填充到相邻的一列
    
End Sub