如何通过用户输入弹窗实现Excel跨工作表单元格自动填充

需求说明 #

现有包含Finance和Invoice两个工作表的Excel文件：

• Finance表为手动填写，A列2-27行存储字母标识
• 需要实现：用户输入对应字母后，Invoice表自动提取Finance表对应行的指定列数据，填充到Invoice表的固定位置：
  • Finance表对应行B列 → Invoice表D3
  • Finance表对应行C列 → Invoice表D4
  • Finance表对应行D列 → Invoice表D5
  • Finance表对应行E列 → Invoice表B8
  • Finance表对应行I列 → Invoice表D8

修改后的VBA代码 #

Sub Macro2()
    Dim userInput As String
    Dim targetRow As Range
    Dim wsFinance As Worksheet, wsInvoice As Worksheet
    
    ' 定义工作表对象，简化代码调用
    Set wsFinance = ThisWorkbook.Sheets("Finance")
    Set wsInvoice = ThisWorkbook.Sheets("Invoice")
    
    ' 获取用户输入
    userInput = InputBox("输入对应发票的字母标识:")
    If userInput = "" Then Exit Sub ' 用户取消输入则直接退出
    
    ' 在Finance表A列2-27行精准查找输入的字母
    Set targetRow = wsFinance.Range("A2:A27").Find(What:=userInput, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 处理未找到匹配项的情况
    If targetRow Is Nothing Then
        MsgBox "未找到对应字母的记录，请检查输入", vbExclamation
        Exit Sub
    End If
    
    ' 动态复制对应行的数据到Invoice表指定位置
    wsFinance.Cells(targetRow.Row, "B").Copy Destination:=wsInvoice.Range("D3")
    wsFinance.Cells(targetRow.Row, "C").Copy Destination:=wsInvoice.Range("D4")
    wsFinance.Cells(targetRow.Row, "D").Copy Destination:=wsInvoice.Range("D5")
    wsFinance.Cells(targetRow.Row, "E").Copy Destination:=wsInvoice.Range("B8")
    wsFinance.Cells(targetRow.Row, "I").Copy Destination:=wsInvoice.Range("D8")
End Sub

关键修改点 #

• 新增工作表对象定义，减少重复调用Sheets函数，提升代码效率与可读性
• 用Range.Find方法实现动态定位用户输入字母对应的行，替代原代码固定行号的逻辑
• 增加输入校验：用户取消输入或无匹配记录时，给出提示并退出，避免报错
• 采用Cells(targetRow.Row, 列标识)的写法，实现对应列数据的动态复制

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