Excel多用户数据提交：VBA按钮实现行数据转存至其他工作表

1. 准备存储区域 #

首先新建一个专门用于存储数据的工作表：

• 右键Excel底部的工作表标签，选择「插入」→「工作表」，将其命名为DataStorage
• 右键DataStorage标签，选择「隐藏」，确保普通用户无法直接查看该表

2. 编写VBA宏代码 #

按Alt+F11打开VBA编辑器，右键左侧工程窗口中的工作簿名称→「插入」→「模块」，粘贴以下代码：

Sub SaveUserData()
    Dim inputSheet As Worksheet
    Dim storageSheet As Worksheet
    Dim lastRow As Long
    
    ' 替换为你的输入工作表名称（比如用户输入数据的Sheet1）
    Set inputSheet = ThisWorkbook.Sheets("Sheet1")
    ' 存储数据的隐藏工作表
    Set storageSheet = ThisWorkbook.Sheets("DataStorage")
    
    ' 检查必填项是否完整（可根据需求调整）
    If inputSheet.Range("A2").Value = "" Or inputSheet.Range("B2").Value = "" Or _
       inputSheet.Range("C2").Value = "" Or inputSheet.Range("D2").Value = "" Then
        MsgBox "请填写所有输入项和姓名首字母！", vbExclamation
        Exit Sub
    End If
    
    ' 找到存储表的最后一行（避免覆盖已有数据）
    lastRow = storageSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' 将输入数据写入存储表的新行
    storageSheet.Cells(lastRow, "A").Value = inputSheet.Range("A2").Value ' x值
    storageSheet.Cells(lastRow, "B").Value = inputSheet.Range("B2").Value ' y值
    storageSheet.Cells(lastRow, "C").Value = inputSheet.Range("C2").Value ' z值
    storageSheet.Cells(lastRow, "D").Value = inputSheet.Range("D2").Value ' 姓名首字母
    storageSheet.Cells(lastRow, "E").Value = Now() ' 记录提交时间（可选）
    
    ' 清空输入区域，方便下一位用户使用
    inputSheet.Range("A2:D2").ClearContents
    
    MsgBox "数据提交成功！", vbInformation
End Sub

注意：代码中的A2、B2、C2、D2对应你表格中x、y、z、姓名首字母的输入单元格，需根据实际位置修改。

3. 添加提交按钮 #

回到Excel界面，通过「开发工具」选项卡添加按钮：

• 点击「开发工具」→「插入」→选择「表单控件（按钮）」
• 在输入区域附近拖动鼠标绘制按钮，弹出的窗口中选择SaveUserData宏，点击确定
• 右键按钮修改显示文字为「提交数据」

4. 增强隐私保护（可选） #

为防止用户取消隐藏存储表，可保护工作簿结构：

• 点击「审阅」→「保护工作簿」
• 勾选「结构」，设置保护密码，点击确定

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