excel VBA 任意两列数值完全相同比较

excel VBA问题:例如有10列数据:A1:A100,B1:B100,C1:C100,D1:D100... ..

当A1=B1,A2=B2,A3=B3,A4=B4,A5=B5... ...一直到A100=B100。A列完全相同B列时,或C列完全相同A列,或F列完全相同J列。里面只要有任意两列完全相同的数值。返回相同的其中一列

请问用用什么函数比较?

    用VBA 随便在一个单元格输入

    =SUMPRODUCT((A1:A100=B1:B100)*1)

    判断如果这个单元格值=100 就是完全相同,

    直接用for循环

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-11-26
A101=IFERROR(LEFT(ADDRESS(1,COLUMN()+MATCH(A1,B1:$J1,0),4,1),1),"")
然后复制A101,粘贴到[A101:I200]追问

用VBA代码实现,EXCEL工作表函数我也会的!

追答

Range("A101:I201").ClearContents
Range("A101:I200").FormulaR1C1 = "=IFERROR(LEFT(ADDRESS(1,COLUMN()+MATCH(R[-100]C,R[-100]C[1]:R[-100]C10,0),4,1),1),"""")"
Range("A201:I201").FormulaR1C1 = "=IF(COUNTIF(R[-100]C:R[-1]C,R101C)=100,R101C,"""")"
最终的计算结果在"A201:I201"区域显示。
内置函数运行效率最高

相似回答