Excal VBA同时对四组数据进行两两比较，并提示那些和那些不同的公式或者代码
答案:1 悬赏:80 手机版
解决时间 2021-03-28 15:41
- 提问者网友：疯孩纸
- 2021-03-27 19:49
Excal VBA同时对四组数据进行两两比较，并提示那些和那些不同的公式或者代码
最佳答案
- 五星知识达人网友：忘川信使
- 2021-03-27 21:01
a = ""
for i = 1 to 3
for j = i + 1 to 4
if cells(1, i) - cells(1, j) <> 0 then
select case a
case ""
a = a & left(cells(i,1).address(0,0),1) & "与" & left(cells(j,1).address(0,0),1) & "不同"
case else
a = a & "，" & left(cells(i,1).address(0,0),1) & "与" & left(cells(j,1).address(0,0),1) & "不同"
end select
end if
next j, i
for i = 1 to 3
for j = i + 1 to 4
if cells(1, i) - cells(1, j) <> 0 then
select case a
case ""
a = a & left(cells(i,1).address(0,0),1) & "与" & left(cells(j,1).address(0,0),1) & "不同"
case else
a = a & "，" & left(cells(i,1).address(0,0),1) & "与" & left(cells(j,1).address(0,0),1) & "不同"
end select
end if
next j, i
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯