求助：大神们看看有没有办法在最后一行都加5月25号？ 最快方法？

直接最右边一整列都粘贴25号。
然后定位空值，右键-删除单元格-单元格左移

用VBA编程搞定，手动太费劲

你发文件给我吧，（QQ914391654）

Sub test()
On Error Resume Next
Dim rng As Range
For Each rng In Range("a1", Cells(Rows.Count, 1).End(xlUp))
rng.Select
If rng <> "" Then
If rng(1, 2) = "" Then
rng(1, 2).Value = "5月25号"
Else
rng.End(xlToRight)(1, 2) = "5月25号"
End If
End If
Next
End Sub