VBA请教，我的进步，你的成就！

你很蛋疼，干嘛不用access

建议上传个附件（存到网盘再共享），免得人家还要按你的格式输入许多数据来验证。
要求里最后一步把10000分成8000和2000写入表一，是替换表一的原数字还是累加？

真不怎么看懂你那个输入界面怎么去按你的意思设置，至少现在是用公式来求得值出来的，不是用来输入数据。是否应该按照自己的用意去设置属于自己的界面
你要去获取数据和更改都可以使用adodb+sql去设定
Sub pro()
Dim conn As Object
Dim rs As Object
Dim Sql As String
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.jet.oledb.4.0;Extended Properties=Excel 8.0;Data Source=C:\Users\mrliang\Desktop\新建文件夹\【批量下载】材料需求清单等\材料需求清单.xls"
Sql = "Select * from [请购单$A2:J6] where 生产订单序号=100002 and 品牌='扁管'"
'你只需要理解到sql=……这一句基本完工了
Set rs = conn.Execute(Sql)
If Not rs.EOF Then
MsgBox rs.Fields("采购需求量").Value
End If
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub
取得订单号为100002和品牌等于扁管的生产需求
添加数据一样，可以使用adodb的游标或者sql的insert语句