当前位置:网志问答 > 跪求大佬帮忙指点下,根据C列相同编号C的商品,按K列数值比较,把大数值的B列粘在L 列上
已有回答

跪求大佬帮忙指点下,根据C列相同编号C的商品,按K列数值比较,把大数值的B列粘在L 列上

例如,根据C列相同编号C=24215---220,K24215=2,K24219=-2,然后把B24215粘在L24219网志问答在6天前收到腾讯网的热心用户关于跪求大佬帮忙指点下,根据C列相同编号C的商品,按K列数值比较,把大数值的B列粘在L 列上的提问,关于这些疑难问题,进行了深入的分析。得到了网志问答众多网友的支持,得到了如下解决方案,摘录了部分优质回答,如对此有任何好的意见,欢迎大家进行探讨共同解决!

详细问题描述及疑问:期待您的答案,谢谢你帮我,祝你快乐,愿你事事如意 !

本页链接:http://www.oxrm.com/question/1589795762614514

AD728-90
满意答案

第1个优秀答案:

LV6天前用VBA可以轻松实现,把下面程序复制到你当前工作表的VBA代码页下即可。使用方法:当你选择了C列第2行以下时,从C2开始自动检索C列,直到C列的内容为空时止。并把你所选的相同编号的最大值显示在你所选择行的L列下面。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)DimIAsLong,JAsLongDimNAsLongDimSAsString,S2AsStringIfTarget.Count=1AndTarget.Column=3AndTarget.Row>1ThenRange("K:K").ClearContentsRange("K1").Value="调出门店"I=2S=Target.ValueN=-2147483648#DoIfLen(Cells(I,3))=0ThenExitDoIfCells(I,3).Value=SThenIfCells(I,10)>NThenS2=Cells(I,2)&","N=Cells(I,10)ElseIfCells(I,10)=NThenS2=S2&Cells(I,2)&","EndIfEndIfI=I+1LoopI=Target.RowDoJ=InStr(S2,",")IfJ=0ThenExitDoCells(I,11)=Left(S2,J-1)S2=Mid(S2,J+1)I=I+1LoopEndIfEndSub追答:更正一下,上面的程序作以下更改,没注意你的H列是隐藏的,照搬你的表格时,少了一列。Range("K:K").ClearContentsRange("K1").Value="调出门店"改为:Range("L:L").ClearContentsRange("L1").Value="调出门店"IfCells(I,10)>NThen改为:IfCells(I,11)>NThenN=Cells(I,10)ElseIfCells(I,10)=NThen改为:N=Cells(I,11)ElseIfCells(I,11)=NThenCells(I,11)=Left(S2,J-1)改为:Cells(I,12)=Left(S2,J-1)


希望以上的回答,能够帮助你。如果你还没有在此找到或解决关于“跪求大佬帮忙指点下,根据C列相同编号C的商品,按K列数值比较,把大数值的B列粘在L 列上”的问题的方法,可以用百度搜狗以及360搜索等搜索引擎来搜索相关更多的内容,也可以在百度知道、搜狗问问、360问答、微博、微信、网志问答等来提问,让更多的网友共同来帮助你解决“跪求大佬帮忙指点下,根据C列相同编号C的商品,按K列数值比较,把大数值的B列粘在L 列上”的回答。大众新闻网http://www.dzxww.com/
AD160-600