Sub LastRow()For i = 1 To 50 Worksheets("sheet1").Cells(i, "A").Value =“AA” & Worksheets("sheet1").Cells(i, "A").Value Next End Sub
两万条记录不算多，你可以运行试试，最好加个显示进度的百分比的数字，应该很快。
