主题：[求助]自动录入公式

 如果没有指定，说明不符合你的判断逻辑，你可以弹出职务来判断。比如

 

 If dr2 IsNot Nothing Then

     msgbox(dr2("职务"))

 End If

回复9楼，单独做个例子上传上来说明问题。

Dim str As String = "aaaaaaaaa客户姓名:叶先生" & vbcrlf & "客户账号:13502217816@139.gdasdfkasdf"
Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str,"客户姓名.+\n")
msgbox(mc1(0).value.Substring(5))
Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str,"客户账号.+@139.gd")
Dim s As String = mc2(0).value
msgbox(s.SubString(5, s.Length-12))

加入代码 msgbox(dr2("直通车日期") & vbcrlf & Format(dt, "yyyy-MM-dd") )