[已解决]从别的地方复制过来的代码，出错，求修改！

wszbd · 发表于 2013-11-12 01:06

本帖最后由 wszbd 于 2013-11-12 22:00 编辑

从别的地方复制过来的代码，出错，求修改！

新建 Microsoft Excel 工作表.rar (8.17 KB, 下载次数: 44)

yyyydddd8888 · 发表于 2013-11-12 07:14

这个最佳答案由 yyyydddd8888 给出，感谢 yyyydddd8888 的回答。

单击隐藏图章

看不懂意思。只是感觉这句代码应该这样写，

If (arra(i + 1, 1) < arra(j + 1, 1) Or (arra(i + 1, 1) = arra(j + 1, 1)) And arra(i + 1, 2) > arra(j + 1, 2)) Then
xMax = arra(i + 1, 1)

wszbd · 发表于 2013-11-12 12:10

本帖最后由 wszbd 于 2013-11-12 12:12 编辑

yyyydddd8888 发表于 2013-11-12 07:14
看不懂意思。只是感觉这句代码应该这样写，

If (arra(i + 1, 1) < arra(j + 1, 1) Or (arra(i + 1, 1) ...

行数没有改，只是改变了列数，怎么修改？

谢谢！For i = 0 To 9
Cells(i + 2, 7) = i
Next i

wszbd · 发表于 2013-11-12 21:58

yyyydddd8888 发表于 2013-11-12 07:14
看不懂意思。只是感觉这句代码应该这样写，

If (arra(i + 1, 1) < arra(j + 1, 1) Or (arra(i + 1, 1) ...

ok,改一下列数·就能用了，谢谢！

		自动登录	找回密码
密码			注册