我在 Excel 中创建了一个表单，可以将表单中输入的信息移动到同一工作簿中的相邻工作表以及位于不同文件路径的代理工作簿中。难题已经解决！效果非常好！
从这里开始，我将创建两个与第一个代理相同的附加工作簿（总共 3 个代理），其中的信息也将同时过滤。
我无法弄清楚的是，如果代理人姓名列在特定列中，则仅将信息发送到一个工作簿来进一步详细说明转移。
就我而言，我的代理人的名字是D 列。当我点击传输时，我想知道我的宏是否会识别在该特定单元格中输入的名称并将其路由到该特定代理工作簿而不是所有 3 个代理？
我知道这是可能的，但我的小脑袋不允许我使用更多的脑细胞！我是 VBA 编程的新手，所以我可能遗漏了很多。任何帮助都将不胜感激。我目前使用的代码如下。
Private Sub CommandButton1_Click()
Dim DateReceived As Date
Dim CustomerName As String
Dim AcctNumber As Single
Dim AssignedAgent As String
Dim DisputeCode As Single
Dim ProjRespDate As Date
Dim DocUploadDate As Date
Dim DirectMailForm As Workbook
Worksheets("Form").Select
DateReceived = Range("G3")
CustomerName = Range("G4")
AcctNumber = Range("G5")
AssignedAgent = Range("G6")
DisputeCode = Range("G7")
ProjRespDate = Range("G8")
DocUploadDate = Range("G9")
Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
RowCount = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Data").Range("A1")
.Offset(RowCount, 0) = DateReceived
.Offset(RowCount, 1) = CustomerName
.Offset(RowCount, 2) = AcctNumber
.Offset(RowCount, 3) = AssignedAgent
.Offset(RowCount, 4) = DisputeCode
.Offset(RowCount, 5) = ProjRespDate
.Offset(RowCount, 6) = DocUploadDate
End With
Worksheets("Form").Select
Worksheets("Form").Range("G3").Select
ActiveWorkbook.Save
Range("G3:G9").ClearContents
Set DisputeForm = Workbooks.Open("C:\Users\klx380\Documents\Consolidated_Dispute_Tracker_2014.xls")
Worksheets("Mail").Select
Worksheets("Mail").Range("A1").Select
RowCount = Worksheets("Mail").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Mail").Range("A1")
.Offset(RowCount, 0) = DateReceived
.Offset(RowCount, 1) = CustomerName
.Offset(RowCount, 2) = AcctNumber
.Offset(RowCount, 3) = AssignedAgent
.Offset(RowCount, 4) = DisputeCode
.Offset(RowCount, 5) = ProjRespDate
.Offset(RowCount, 6) = DocUploadDate
End With
DisputeForm.Save
DisputeForm.Close
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If [G9].Value <> "" Then
CommandButton1.Enabled = True
Else: CommandButton1.Enabled = False
End If
End Sub