请求优化PTO计算器VBA：实现连续点击单元格复制日期功能

核心问题修复：连续点击日期时自动填充到下一个空单元格 #

原代码固定将日期写入Range("L10")，导致每次点击都会覆盖之前内容。下面是修改后的代码，实现每次点击日期时自动找到侧边区域的下一个空单元格写入，同时保留操作流畅性：

Dim originalCell As Range

Sub CopyAndReturn()
    Dim currentCell As Range
    Dim destinationCol As Range
    Dim nextEmptyCell As Range
    
    ' 记录当前选中的日期单元格
    Set originalCell = ActiveCell
    
    ' 执行原有的日历区域复制逻辑（若不需要可直接删除）
    Range("C10:I15").Copy
    Range("D18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False ' 清除复制选中状态
    
    ' 回到原日期单元格
    Application.Goto originalCell
    Set currentCell = ActiveCell
    
    ' 定位L列从第10行开始的第一个空单元格
    Set destinationCol = ThisWorkbook.Sheets("Sheet1").Range("L:L")
    Set nextEmptyCell = destinationCol.Find(What:="", After:=destinationCol.Cells(10, 1), LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 写入日期并设置格式，同时跳转到右侧单元格方便输入时长
    If Not nextEmptyCell Is Nothing Then
        nextEmptyCell.Value = currentCell.Value
        nextEmptyCell.NumberFormat = "m/d/yyyy"
        nextEmptyCell.Offset(0, 1).Select
    End If
End Sub

关键改动说明 #

• 使用Find方法自动定位下一个空单元格，彻底解决重复覆盖问题
• 添加Application.CutCopyMode = False清除复制状态，避免Excel保留选中的复制区域
• 自动跳转到日期右侧单元格，让用户可以直接输入当日休假时长（1.0-8.0）

跨月份保留数据与PTO计算思路 #

要实现切换月份时保留已选日期和休假时长，同时计算剩余余额，可按以下步骤操作：

1. 固定"休假记录"区域：用L列存选中日期、M列存休假时长，这个区域不随月份切换变动
2. 月份切换逻辑：仅更新日历显示区域（C10:I15），不修改L-M列的记录
3. 剩余PTO计算：假设初始余额在B2，在B3输入公式自动计算：

   =B2-SUM(M10:M100)
   

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