用excel巨集刪除重複資料

這是今天做的，感覺挺實用。

=================================================
Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer
Dim sheetA_Name As String
Dim sheetB_Name As String
Dim sheetA_Range As String
Dim sheetB_Range As String

' Turn off screen updating to speed up macro.
Application.ScreenUpdating = False

sheetA_Name = Sheets("rule").Cells(1, 1)
sheetA_Range = Sheets("rule").Cells(1, 2)
sheetB_Name = Sheets("rule").Cells(2, 1)
sheetB_Range = Sheets("rule").Cells(2, 2)

' Get count of records to search through (list that will be deleted).
iListCount = Sheets(sheetA_Name).Range(sheetA_Range).Rows.Count

' Loop through the "master" list.
For Each x In Sheets(sheetB_Name).Range(sheetB_Range)
' Loop through all records in the second list.
For iCtr = 1 To iListCount
' Do comparison of next record.
' To specify a different column, change 1 to the column number.
If x.Value = Sheets(sheetA_Name).Cells(iCtr, 1).Value Then
' If match is true then delete row.
Sheets(sheetA_Name).Cells(iCtr, 1).Delete xlShiftUp
' Increment counter to account for deleted row.
iCtr = iCtr + 1
End If
Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
=================================================

程式其實是從M$網站上co下來的，只改了資料來源設定方式
sheetA_Name,sheetA_Range分別是母資料的sheet名稱跟資料範圍
sheetB_Name,sheetB_Range分別是子資料的sheet名稱跟資料範圍
這四個值透過rule這個sheet的A1,B1,A2,B2來設定，然後巨集執行後，就會把母資料的欄位中跟子資料重複的資料刪掉。

不過執行時間比原先預期的要久，才少少三千多筆的母資料跟八百多筆的子資料，跑這個巨集就要一分多鐘的時間，真的相當出乎意料啊！

如果資料再多個兩三倍，不知道要不要搞來一台超級電腦？

Excel照相機

今天忽然要用找不到去那加，找了一下文章終於搞定。又是一篇KM

1.點選「工具」→「自訂」
2.選「指令」標籤頁→在類別選單裡點選「工具」→在右邊指令裡點選「攝影」(不要放)→點著攝影把它拉到現有工具列的任何位置
3.在工作表裡選取要拍下來的部份
4.點一下剛剛拉出來的攝影icon
5.在工作表的任一地方點一下，圖就跑出來了，搞定！

不過也不是每次都那麼順利。今天做的時候就有幾次照出來的圖怪怪的，然後就把資料縮小一點，重新調整一下位置，再照一次才成功。所以結論是照相機礙於「不夠廣角」，要拍的東西要整理一下才行。

ie6開啟網頁一片空白

今天遇到一個奇妙的問題，用ie網頁開啟後一片空白，沒有出現任何錯誤訊息，檢視原始碼是有資料的，狀態也是顯示完成，但是不管怎麼reload，畫面還是一片空白。
結果咧，結果咧，結果咧結果咧～
結果我把編碼改big5，就好了，網頁就出來了。可是很奇怪啊，明明HTML裡有設定頁面編碼是big5，ie還是會把語系設為utf8，真的是一個很奇妙的瀏覽器。

真像大白

猜一個人……







答

案

是







小白……


唉呀，老梗…………

今天要說的是上週五的見鬼事件，在連日來的觀察、不斷的系統還原、不斷的開機關機下，終於是真相大白了！結果就是windows update惹的禍！
話說昨天下班要關機前發現有更新，就很習慣的點安裝完更新後關機，當時就在想會不會是更新的問題，結果今早一來，馬上開word來試，果然出現了相同的問題，馬上再做一次系統還原，重開機後把windows update的設定改為通知但不自動下載，很快的就發現了禍源：

Microsoft Office Word 2003 安全性更新 (KB943983)
Office 2003 安全性更新 (KB945185)
Outlook 2003 垃圾郵件篩選器更新 (KB944941)
Microsoft Works Suite 2005 安全性更新 (KB943973)
Microsoft Office Publisher 2003 安全性更新 (KB946254)

google一下，原來很多人都遇到相同的問題啊！
這裡有知職+，還有要用google庫存頁才看的到內容的論譠文章

真不愧是M$，總是要悠悠眾生自己找答案，這樣的堅持真是另人尊敬！


話說回來，google還真的是有問必答。

proxy

這幾天只要getway設和網的都無法登入msn，然後設hinet的getway每到晚上下班前要送出工作報告，他就會把我當外人不讓我送，搞的我每天下班前都很不悅。今天下定決心一定要把msn擺平，於是就上網找錯誤編碼80048820，延申編碼80048439的解決方法，看了很多未果，又不想執行一個看起來非msn官網的bat檔，於是上msn下載最新的messenger，安裝了msn8.5。
裝好，重新登入，還是不行……又繼續找資料，終於找到了這個，真相大白，原來是之前為了測網友的問題，把ie設了hinet proxy，可能因為這樣，造成無法抓到正確資料，於是把proxy勾掉，重登入，果然ok了。
還真差，明明msn的連線設定裡有自己獨立設proxy的地方，這個地方都沒設，它竟然自己抓ie的設定，果然不改M$一向無厘頭作風。
我說這個hinet proxy也真的很奇妙，據說他的ip常常改變，會因此造成一些奇怪的問題。想當初我會設他的proxy也是因為一位hinet ADSL的user出了奇怪的問題，然後向我們提起proxy，才讓真相大白，原來hinet真的這麼爛。而且設了proxy後，用ie瀏覽網頁只能用慢到被鬼打到來形容，當時我就很快的關掉ie，繼續用我的firefox了，也很理所當然的忘掉proxy這件事，這次發生的事件真是巧合啊！

嗯，我看開了。
又收到郵局掛號，園藝達人的，我猜一定又是hinet的電話被催收單，真的很煩，明明繳費期限是1/10，今天也才8號，急個啥勁啊！
催錢那麼勤，怎沒看到服務做的多好。

ie7 空白

不是我在講，微軟的產品真的很容易卡陰，總是發生一些很詭異的問題，然後他也不會主動跟你說使用這個東西可能會遇到什麼狀況，就是先騙你去用，用了遇到問題再讓你自己想辦法，有解決算你運氣好，沒解決也不用太傷心，因為很多人都跟你一樣。

我說啊，會找「ie7 空白」絕對不是因為不知道ie7怎麼設空白頁，而是開了一個正常的網頁，都load完了他還顯示空白，光是這個關鍵字，中文可以搜到71,400個結果，英文可以搜到653,000，這樣是不是很好笑啊！現在用ie7的到底有多少人，竟然就有那麼多人有這樣的問題了！

其實大家也不要再掙扎了，ie的問題會一直一直跑出來，不管是那個版本都是這樣，如果真的想解決的話，就看這個吧，web網頁(總)是在Internet Explorer 7 空白，雖然我也不知道有沒有用，總之就是上面說的那句有解決算你運氣好，沒解決也不用太傷心，因為很多人都跟你一樣。

最後，在這裡要很台肯(響應去中改台)的告訴大家，如果你對microsoft沒有品牌忠誠，就棄IE從Firefox吧！

官方版木馬

微軟在xp版本就不斷的在想辦法要讓盜版使用者花錢，這下子推出了vista後，手段又更進一步，竟然要癱瘓電腦......不知道提出這個主意的人是不是linux派過去的間牒，想出了這個讓人更深惡痛絕的方法。

不知道卡巴斯基會不會率先發佈防堵程式，或是由高手們率先解救悠悠蒼生。

MSDN......也是好朋友

最近在讓之前做的上傳程式有背景執行的功能，因為沒做過也沒研究過，著實為他煩惱了好一陣子，連在網路上找到的東西也很混亂，逼的我使出最後一招，把之前買的.net書帶到公司看。
看了一天，結果書上寫的東西也沒三小路用，又回到網路上找，到MSDN co程式碼，這下才終於弄好，只花了短短半天......

這讓我覺得前面的幾天整個就是在浪費生命......

估且就讓MSDN也進入好友名單吧，雖然我還是很討厭微軟......

Windows Update

當想要update的東西被標上要先通過WGA驗證的時候，再多的言詞都是多餘，唯有兩個字......















喔幹！

你的XP不是正版

企業加薪怎麼不阿沙力一點，搞的我很頭痛。如果他們加薪跟扣薪水一樣阿沙力就好了，要加就快加，要扣就快扣，囉哩八嗦很浪費精神。像這次颱風就很阿沙力，不來就早點轉向，這樣就對了嘛！

烏鴉比利在這次世足靈異的準了那麼一會，結果又烏鴉了！連續預測德國、葡萄牙會打進冠軍賽，結果這兩隊雙雙落馬，這會他又看好義大利奪冠，真為義大利擔心……義大利加油啊～
烏鴉比利怎麼不來預測台灣的企業誰會倒誰會賺呢？

微 軟鬆口了，今天新聞出來，他們要98用戶儘快將98升級為XP，不過他們講的太含蓄了，其實他們想說的，是「98及98以下都儘快升級到XP」，現在這些 還用98,95的人，大多不是在科技界打滾的人，對於一些更新資訊不是很了，等他們灌了盜版XP後，糊里糊塗的將windows update建議的更新照單全收後，就會發現……他們用盜版XP這件事微軟都知道了！然後他們的XP就會被搞的很醜，他們就會忍不住想重灌或買正版，當 然，買正版那些人……嗯……很好。

多媒體展又要開始了，聽說相機很便宜……真想請假去看，不過又怕看到的相機沒幾台，倒是看到一堆辣妹。奇怪，甜甜的不好嗎？

油 價又要漲了，這次漲１塊，已經不想算今年漲多少了，就是一直在漲，大家都在罵。現在國際油價多貴，我想除了中油台塑外，大部份的人都不是很清楚，但這些都 不重要，這時候重要的是思考該怎麼節能，並實際去做，台灣最可怕的就是不想花大錢在研究及開發，白白浪費掉許多自然資源造成資源缺乏，現在許多國家都已經 注意到這個問題並著手努力，而台灣官員還是各自鞏固地盤，各自捧大餅，占掉大半媒體版面的總是那些只講大話，跟對手叫囂的官，官啊！台灣被一大群這種官操 控著，真的還有未來嗎？難得久久出現的一個生物科技發展，也被排在新聞的最後，這些研發才是希望，結果希望被放在最後面。就算真的有優秀的人才，看到這樣 的環境也不會想留下來，因為外行主導內行，真正有能力的往往是被打壓的，因為他擋人財路……

來個風力發電車吧！