VBA excel 编程的问题！
鼠标右击Sheet标签，【查看代码】，在代码窗口粘贴下面的代码：
Subouyangff()
Fori=2To[d65536].End(3).Row
Forj=i+1To[d65536].End(3).Row
IfCells(i,4)=Cells(j,4)Then
IfCells(i,1)<>Cells(j,1)Then
Rows(i).Interior.ColorIndex=6
Rows(j).Interior.ColorIndex=6
EndIf
EndIf
EndSub
将光标放在代码处，按F5，运行程序！按Alt+F11回到Excel里，去看看结果吧！
祝你成功！！！
本回答由提问者推荐
编程题，vba要生成一个数值型数组，数组元素的值通过rnd函数生成，并且是不为零的一位或两位整数？
PrivateSubCommand1_Click()
Dima(100)AsInteger,b(100)AsInteger
n=CInt(InputBox("数组有几个元素:"))
Fori=1Ton
x=1+Int(Rnd*99)
LoopWhileb(x)>0
a(i)=x
b(x)=x
Nexti
Print"原始数组："
Fori=1Ton
PrintTab(5*((i-1)Mod10));a(i);
IfiMod10=0ThenPrint
Nexti
Fori=1To99
Ifb(i)>0Then
j=j+1
b(j)=b(i)
EndIf
Nexti
Fori=1Ton\2
t=b(i)
b(i)=b(j)
b(j)=t
j=j-1
Nexti
Print"排序后数组："
Fori=1Ton
PrintTab(5*((i-1)Mod10));b(i);
IfiMod10=0ThenPrint
Nexti
EndSub
Acccess VBA 题目
