Attribute VB_Name = "对比模块"Sub bb()x = 1 '行号,就是从第几行开始y = 1 '列号,第一个要进行对比的数据z = 3 '列号,第二个要进行对比的数据Do While Cells(x, 1).Value""'当第X行第一列的数值为-1时,程序结束If Cells(x, y).Value = Cells(x, z) ThenCells(x, 2).Value = "相同"ElseCells(x, 2).Value = "不相同"End Ifx = x + 1LoopEnd Sub参考一下循环吧 |