Excel项目：点击Submit按钮实现Sheet1发票数据转至Sheet2客户表的方法

Got it, let's sort out this Excel data sync problem for you. I've built similar setups a bunch of times, so here's a straightforward way to make that Submit button do exactly what you need:

核心思路 #

We'll use Excel VBA to tie a macro to your Submit button. When clicked, it pulls the customer details from Sheet1's invoice form, finds the next empty row in Sheet2's customer table, and drops the data in automatically. We can even clear the form afterward to make the next entry easier.

具体步骤 #

1. 先确认字段位置 #

先记好Sheet1里客户字段对应的单元格，举个例子：

• First Name: 单元格A2
• Surname: 单元格B2
• House Number: 单元格C2
• Postcode: 单元格D2
• Contact Number: 单元格E2

如果你的布局不一样，后面在代码里调整就行，很灵活。

2. 编写VBA宏 #

按下Alt + F11打开VBA编辑器，在左侧项目管理器里右键你的工作簿，选择Insert > Module，然后粘贴下面的代码：

Sub SubmitInvoiceData()
    ' 定义工作表变量
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim nextEmptyRow As Long
    
    ' 指定源工作表（Sheet1发票页）和目标工作表（Sheet2客户详情页）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 找到Sheet2里的下一个空白行（假设表头在第1行）
    nextEmptyRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 将Sheet1的字段值写入Sheet2对应行
    targetSheet.Cells(nextEmptyRow, "A").Value = sourceSheet.Range("A2").Value ' First Name
    targetSheet.Cells(nextEmptyRow, "B").Value = sourceSheet.Range("B2").Value ' Surname
    targetSheet.Cells(nextEmptyRow, "C").Value = sourceSheet.Range("C2").Value ' House Number
    targetSheet.Cells(nextEmptyRow, "D").Value = sourceSheet.Range("D2").Value ' Postcode
    targetSheet.Cells(nextEmptyRow, "E").Value = sourceSheet.Range("E2").Value ' Contact Number
    
    ' 可选：提交后清空Sheet1的输入框，方便下一次录入
    sourceSheet.Range("A2:E2").ClearContents
    
    ' 提示提交成功
    MsgBox "客户数据已成功同步到Sheet2！", vbInformation
End Sub

代码快速说明：

• 先指定好要操作的两个工作表，避免Excel搞混
• nextEmptyRow会自动找到Sheet2的第一个空白行，不会覆盖已有数据
• 从targetSheet.Cells开始的行，就是把Sheet1的每个字段对应写到Sheet2里
• 清空输入框的步骤是可选的，但重复录入的时候特别实用
• 弹窗提示能帮你确认操作成功

3. 添加Submit按钮 #

回到Excel界面操作：

1. 如果看不到开发工具选项卡，就去文件 > 选项 > 自定义功能区，勾选"开发工具"
2. 点击开发工具，选择插入 > 按钮（表单控件）
3. 在Sheet1的合适位置（比如表单下方）画一个按钮
4. 弹出"指定宏"窗口时，选择SubmitInvoiceData然后点确定
5. 右键按钮，选择编辑文字，把按钮名称改成"Submit"

4. 测试和调整 #

• 在Sheet1填好客户信息，点击Submit按钮，去Sheet2看看数据是不是出现在新行里
• 如果你的字段不在A2-E2，只要修改代码里sourceSheet.Range("Xx")的部分就行（比如First Name在C3，就改成sourceSheet.Range("C3").Value）
• 如果Sheet2的表头在第3行，nextEmptyRow的逻辑依然有效；要是Sheet2只有表头没有数据，可以直接把nextEmptyRow设为4（第一个数据行）

额外小贴士 #

• 保存工作簿时要选.xlsm格式，普通的.xlsx不支持宏，会丢失代码
• 打开文件时如果Excel提示宏被禁用，点击"启用内容"（只针对你信任的文件哦）
• 如果需要避免重复录入客户（比如检查邮编是否已存在），可以告诉我，我再补充查重的代码逻辑

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