Excel VBA实现点击Save按钮将配置值依次复制到对应日期单元格

核心实现逻辑 #

不用额外做变量存储点击次数，直接按表格里Day列表的顺序，每次保存自动定位第一个还没填内容的Day相邻空位写入即可，就算中途手动修改过之前保存的内容，也不会出现序号错乱的问题，对新手友好不容易出错。

• 每次点击按钮先读取当前「Lunchbox combo」旁生成的完整午餐组合内容
• 遍历提前列好的Day1、Day2、Day3行，找到右侧相邻列第一个空白单元格
• 把当前组合内容写入找到的空位，如果现有Day行都填满了，自动生成下一个Day序号再写入

具体代码 #

按Alt+F11打开VBA编辑器，在左侧工程列表找到你做配置工具的工作表，双击打开代码编辑区，粘贴下面的代码：

Sub SaveLunchboxCombo()
    Dim ws As Worksheet
    Dim comboRng As Range
    Dim dayListRng As Range
    Dim targetRng As Range
    Dim cell As Range
    
    ' 替换成你自己存放配置工具的工作表名，比如Sheets("午餐配置")
    Set ws = ThisWorkbook.ActiveSheet
    ' 替换成你显示午餐组合内容的单元格，也就是"Lunchbox combo"旁边的单元格，示例为C3
    Set comboRng = ws.Range("C3")
    ' 这里的E3是Day1所在的单元格，代表Day列表从E列第3行开始，根据你实际位置改列标和起始行
    Set dayListRng = ws.Range("E3:E" & ws.Cells(ws.Rows.Count, "E").End(xlUp).Row)
    
    ' 空内容拦截，避免没选完餐就保存空白
    If Trim(comboRng.Value) = "" Then
        MsgBox "请先选完主餐、配餐、甜品再保存", vbExclamation
        Exit Sub
    End If
    
    ' 遍历查找第一个空的填写位
    For Each cell In dayListRng
        If Trim(cell.Offset(0, 1).Value) = "" Then
            Set targetRng = cell.Offset(0, 1)
            Exit For
        End If
    Next
    
    ' 现有Day行都填完的话，自动新增下一天条目
    If targetRng Is Nothing Then
        Dim lastDayRow As Long
        lastDayRow = dayListRng.Cells(dayListRng.Cells.Count).Row + 1
        ' Day序号计算逻辑：当前行号 - Day1所在行号 +1，比如Day1在3行，3-3+1=1即Day1，可根据实际起始行调整
        ws.Cells(lastDayRow, "E").Value = "Day" & (lastDayRow - 3 + 1)
        Set targetRng = ws.Cells(lastDayRow, "F")
    End If
    
    ' 写入当前配置
    targetRng.Value = comboRng.Value
    MsgBox "配置已保存到 " & targetRng.Offset(0, -1).Value, vbInformation
End Sub

按钮绑定操作 #

• 回到Excel表格界面，点开「开发工具」选项卡→「插入」→选择表单控件下的普通按钮
• 在你想放Save按钮的位置拖动鼠标画出按钮大小，松开后在弹出的宏选择窗口选中SaveLunchboxCombo，点确定
• 右键点击按钮选择「编辑文字」，把默认文字改成Save就能正常使用了

小提示：你只需要修改代码里标注了替换提示的三个位置的单元格/工作表参数，其他逻辑不用动，就能适配你自己的表格布局。如果你的Day列表和填写内容列不是E、F列，把代码里对应的列标改成实际使用的列即可。

内容的提问来源于stack exchange，提问作者Alexander du Plessis