在EXCEL中,如何用VB实现当单元格满足条件时，将某单元格的值输入到某一列的最后一行

当A列+B列等于D列+E列时，将G列的值输入到C列；当A列+B列不等于D列+E列时，将A列的值输入到E列空白行，将B列的值输入到F列空白行。求大神指导... 当A列+B列等于D列+E列时，将G列的值输入到C列；当A列+B列不等于D列+E列时，将A列的值输入到E列空白行，将B列的值输入到F列空白行。求大神指导展开

 我来答

1个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

lengfengfly
2018-03-06 · TA获得超过2380个赞

知道小有建树答主

回答量：2115

采纳率：63%

帮助的人：705万

我也去答题访问个人页

关注

展开全部

不必用VBA。
C2：=if(A2&B2=D2&E2,G2,"")
F2：=if(A2&B2<>D2&E2,B2,"")
公式下拉即可。

更多追问追答
追问

用VB是因为不是一次性用，这个表格数据每次不一样，所以做成VB可以多次用！希望能帮忙给个VB写法，感激不尽
追答

如果每次格式有变化，VBA代码也是要修改的呀； 如果没变化，公式就够用的。一切以简化为准。
追问

但是我E列 F列是有值的 我是要讲不符合条件的筛选出来再往下填
追答

你应该提前把所有情况说清楚，否则回答者会浪费很多时间，影响到对别人的帮助。
如果某位置有数据，又要对其进行判断之后进行是否更新，那么不用VBA，就得用辅助列，否则不可能完成。
追问

我的表格里已经很清楚了啊，哪些位置有值，，，，，，，那请问如果用VBA  该怎么判断呢
追答

这样也可以：
把C、E、F列复制到H、I、J列，之后选中C列，并在编辑栏录入：=IF(A:A+B:B=D:D+E:E,G:G,H:H)，之后按Ctrl+Shift+Enter。同理，E列录入：=IF(A:A&B:B=D:D&E:E,A:A,I:I)，F列录入=IF(A:A&B:B=D:D&E:E,B:B,J:J)