EXCEL VBA - 找出重覆值

Sub Macro1()
Range("A1:W3432").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:= _
Range("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("C2").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Offset(0, 1).Value <> ActiveCell.Offset(1, 1).Value Then

Else
ActiveCell.Offset(0, 18).Value = "重覆選課"

End If

ActiveCell.Offset(1, 0).Select
End If



Wend

End Sub

心情不好時看到這一張心情好很多 - 政大之旅

大家好這是政大的電腦班這些都是專家喔

大家加油 - 妹咕要捐存錢桶

大家一定要加油喔

本BLOG因紀念南部朋友

本BLOG紀念南部所有的同胞 , 色系全部為黑色與白色
請大家同理心 謝謝大家

大家一起來

太麻里災區目前缺衣服，可整理衣櫃不要 的衣服（ 先洗 ） 送至大王國中， ！住址：台東縣太麻里鄉 大王村290號。 Tel ：089-781324 幫 傳一下

因工作需求 - 想賣掉手中的筆電

大家好
因工作需求 , 想賣掉手中的筆電
有3G的RAM 120GB 硬碟
HP CRU是1.5
可以安裝WIN7.0 VISTA 專業版
有DVD燒錄機可無上網802.11 G
想要的朋友可以來信
我想賣 20000元左右 [厡規則是80GB , 512MB 我有自己擴充]
是SATA的HD
14吋鏡面螢幕

最新軟體 - office 2010

先看影片 :http://www.office2010themovie.com/
可以下載喔
http://www.windows7en.com/Win7Down/6036.html
請大家試試喔

以下是噗友的訊息 - 請大家多多宣傳喔

轉噗 : 呼籲需要救援的民眾，洽慈濟總指揮中心03-8266779轉269、590、373或374，高雄分會07-3987667分機1203、1204，屏東分會08-7385265、08-7363953轉123或124。請人人多行善，虔誠祈禱，讓受災戶儘早脫離災難。(歡迎轉噗)。

EXCEL2007雙軸設計

這是學生的問題
1 先產生直條圖[會有二個並列圖柱]
2 修改其中一條圖柱為折線圖
3 選取圖例的資料格式座標為副座標即可