假设excel有“序号、门店编码、 门店名称、实际包装总体积(M3) 、总箱数、集货区标识、地区”列，行数不定，如何在“门店名称”列的最后一行添加明天日期

您好，针对您的问题，可以使用以下步骤来实现在“门店名称”列的最后一行添加明天日期：

1. 找到“门店名称”列的最后一行，可以使用以下代码实现：

last_row = ws.Cells(Rows.Count, "C").End(xlUp).Row

2. 在最后一行下一行插入新行，可以使用以下代码实现：

ws.Cells(last_row + 1, "C").EntireRow.Insert xlShiftDown

3. 在新插入的行的“门店名称”列中添加明天日期，可以使用以下代码实现：

ws.Cells(last_row + 2, "C").Value = Date + 1

完整的代码应该如下所示：

Sub AddDateToExcel()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

' Find last row in "门店名称" column
last_row = ws.Cells(Rows.Count, "C").End(xlUp).Row

' Insert new row below last row
ws.Cells(last_row + 1, "C").EntireRow.Insert xlShiftDown

' Add tomorrow's date to "门店名称" column in new row
ws.Cells(last_row + 2, "C").Value = Date + 1

End Sub