添加宏Sub 自动引用()Sheets("Sheet1").SelectRange("A1").SelectActiveCell.FormulaR1C1 = "='Sheet2'!RC"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A100"), Type:=xlFillDefault '设置要填充的范围End Sub