公式实现日期底部边框自动化：月度周切换场景需求咨询

嘿，我来帮你搞定这个问题！其实不一定非要用宏——先给你讲个不用宏、用条件格式+辅助列的简单方法，要是你的表格是动态生成的，再给你一个容易上手的宏方案。

方案一：不用宏，条件格式+辅助列实现 #

这个方法适合固定结构的周度表格，步骤很清晰：

• 第一步：加辅助列计算每周当月天数占比
  假设你的日期列是A列，每周从第2行开始（第1行是表头），每周7天（比如第2-8行是第一周，9-15行是第二周）。在B2单元格输入下面的公式，然后下拉填充到所有周的起始行：

  =COUNTIFS($A2:$A8,MONTH($A2)=MONTH($A2:$A8))/7
  

  这个公式会算出当前周里，和周第一天同月份的天数占比——比如占比小于0.5，就说明这一周的多数天数属于下个月。

• 第二步：设置条件格式自动加边框

  1. 选中所有需要判断是否加边框的行（也就是每一周的最后一行，比如第8行、第15行、第22行...）
  2. 点击「条件格式」→「新建规则」→选择「使用公式确定要设置格式的单元格」
  3. 输入公式：=B9<0.5（这里B9是下一周起始行的辅助列值，意思是如果下一周多数天数不在当月，那当前行就是当月最后一周，要加边框）
  4. 点击「格式」→「边框」，选好你想要的底部边框样式，确定就完成了！

方案二：用宏实现（适合动态生成的表格） #

如果你的日程表是自动生成的，行数不固定，宏会更灵活。别怕，我给你一个简单的代码，跟着步骤来就行：

• 第一步：打开VBA编辑器
  按下Alt+F11就能打开，然后右键点击你的工作簿名称→「插入」→「模块」，会弹出一个空白的代码窗口。

• 第二步：粘贴宏代码
  把下面的代码复制粘贴进去，记得把ActiveSheet改成你的工作表名称（比如Set ws = ThisWorkbook.Sheets("周度日程")）：

  Sub AddMonthBorder()
      Dim ws As Worksheet
      Dim lastRow As Long
      Dim currentRow As Long
      Dim weekStartRow As Long
      Dim monthCount As Integer
      Dim totalDays As Integer
      
      ' 指定要操作的工作表，把ActiveSheet改成你的表名
      Set ws = ActiveSheet
      lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
      
      ' 假设第一周从第2行开始，表头在第1行，每周固定7天
      currentRow = 2
      totalDays = 7
      
      Do While currentRow <= lastRow
          weekStartRow = currentRow
          ' 统计当前周中，和周起始日期同月份的天数
          monthCount = Application.WorksheetFunction.CountIfs( _
              ws.Range(ws.Cells(weekStartRow, "A"), ws.Cells(weekStartRow + totalDays - 1, "A")), _
              ">" & DateSerial(Year(ws.Cells(weekStartRow, "A")), Month(ws.Cells(weekStartRow, "A")), 0), _
              ws.Range(ws.Cells(weekStartRow, "A"), ws.Cells(weekStartRow + totalDays - 1, "A")), _
              "<=" & DateSerial(Year(ws.Cells(weekStartRow, "A")), Month(ws.Cells(weekStartRow, "A")) + 1, 0) _
          )
          
          ' 如果当前周当月天数少于4天（多数在下月），给上一周最后一行加底部边框
          If monthCount < 4 Then
              With ws.Range(ws.Cells(weekStartRow - 1, "A"), ws.Cells(weekStartRow - 1, ws.UsedRange.Columns.Count)).Borders(xlEdgeBottom)
                  .LineStyle = xlContinuous
                  .Weight = xlThin ' 可以改成xlMedium加粗边框
              End With
          End If
          
          currentRow = currentRow + totalDays
      Loop
  End Sub
  

• 第三步：运行宏
  按下F5就能运行，或者你可以给宏加个按钮：点击「开发工具」→「插入」→「按钮（表单控件）」，然后选择这个宏，以后点按钮就能一键添加边框啦！

如果你的每周天数不是7天（比如有合并单元格），只需要修改代码里的totalDays数值就行。

内容的提问来源于stack exchange，提问作者Delsha