Question

求高手帮忙写个excel vba 小程序。急求，在线等。

如图,要求如下：
最终要求是在F列显示I列的PID数据。G列H列是D列E列的参考列
但F列产生的数据必须先经过D 列与G列比对，然后E列和H列比对。例如E列的数据应该是1000，因为他属于D列的部门， 然后又参考GH得出1000 GH是DE的参考列，由于数据量比较大，存在不同部门有相同岗位，所以要先比较部门，再比较岗位。
本人VBA菜鸟 所以请把代码写完整，有适当注释。谢谢
额……D G 列是部门 E H是岗位
中间F的数据是左边2列参考右边3列得出的，pid也就是H列的编号 现在要通过比较把PId输入到F列 因为每个部门都有多个岗位，还会重复的情况，所以得出的PID只能是该部门的PID，比如E列的“站长”所属的是“腊勐烟草工作站”部门，那么他F列的数据就是1031 不能是1023

Answer 1

Private Sub CommandButton1_Click()
Range("F:F").ClearContents '清空F列
For i = 2 To [D65536].End(xlUp).Row 'D列从2到最后一行循环
For j = 2 To [G65536].End(xlUp).Row 'G列从2到最后一行循环
If Cells(i, 4) & Cells(i, 5) = Cells(j, 7) & Cells(j, 8) Then ’如果 D&E=G&H ，则 F=I
Cells(i, 6) = Cells(j, 9)
End If
Next j
Next i
End Sub

Answer 2

看了下，还是不知道要经过怎样一个过程得到数据来着 ，问题讲得很让人费解啊，再讲清楚点可能用公式就可以做出来。。