Sheets("表三").Range(Cells(2, 2)).AutoFill Sheets("表三").Range(Cells(2, 2), Cells(140 + 1, 2))异常退出的还是没解决,我重装了office也不行家里的机器就行。晕。