中古屋房屋抵押貸款需要的條件 房貸買車 所得稅退稅 問題 請指教

許多人應該被債務或金錢上的問題壓得喘不過氣

往往走上不好的方向高利貸之類的..

今天分享一個好資訊給大家^^

免費諮詢專業人員

最快的時間解決你所遇到問題

解決你個人困難幫助你的問題

http://goo.gl/2hr9j4

標題:

求VBA code--對照A欄，將B欄中所有值合併到第一格

發問:

求VBA CODE:贈20點，感恩!問題如下: apple 123 apple 254 apple 478 bird 1547 bird 415 cat 147 cat 120 cat 487變為以下: apple 123 254 478 apple 254 apple 478 bird 1547... 顯示更多 求VBA CODE:贈20點，感恩! 問題如下: apple 123 apple 254 apple 478 bird 1547 bird 415 cat 147 cat 120 cat 487 變為以下: apple 123 254 478 apple 254 apple 478 bird 1547 415 bird 415 cat 147 120 487 cat 120 cat 487 請幫我寫這樣的CODE，拜託各位了。

最佳解答:

１．合併的數字是以空白字元分隔，放在同一儲存格？還是分開格？ ２．合併後，底下同項目的要不要刪除？ ３．每一相同項目最多有幾列？ ４．全部資料最多有幾列？ 最好提供樣本檔，及模擬一兩行結果樣式！ 2013-08-05 14:15:31 補充： ＜參考檔＞： http://www.funp.net/569885 直接在原表處理及刪除列！ 2013-08-06 10:25:11 補充： ＜參考檔＞ http://www.funp.net/191590 另一暫時下載址： http://kiddys.myweb.hinet.net/files/20130805a01.xls 如果只ＡＢ欄有資料，且不考慮格式的保留，可以使用Array更快處理！ 注意：程式１的方式，不連續相同者，也視為同一項目！ 2013-08-06 16:08:43 補充： EXCEL VBA．若Ａ欄項目相同，將Ｂ欄內容以空白字小額信貸利率元連接為字串 ＜．准提部林．＞ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ■程式碼： Sub 合併1() Dim Arr, Brr, N&, xD As Object, i&, y&, T, TM TM = Timer Set xD = CreateObject("Scripting.Dictionary") y = [A65536].End(3).Row Arr = [A1:B1].Resize(y): ReDim Brr(1 To y, 1) For i = 1 To y T = Arr(i, 1) If xD(T) = "" Then N = N + 1: xD(T) = N: Brr(N, 0) = T Brr(xD(T), 1) = Trim(Brr(xD(T), 1) & " " & Arr(i, 2)) Next With [A1:B1].Resize(N) .Value = Brr .Sort Key1:=[A1], Order1:=xlAscending, Header:=xlNo .Columns(2).AutoFit End With If N 代書貸款利率et/479950 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 2013-08-06 16:09:58 補充： ＊＊新範例中增加〔輔助欄排序法〕，可再參考： http://www.funp.net/479950

其他公教貸款利率解答代書借款小額:民間貸款

滿專業的手機網站，可以來這裡看看 http://www.sogi.me/|||||版大好: 變為以下: 一: apple 123 254 478 apple 254 apple 478 bird 1547 415 bird 415 資料列小額借款台北數不變_只有群組第一筆_顯示該群組全部資料 二: apple 123 254 478 bird 1547 415 直接依據群組收集群組資料數. 上述2種結果_若是依發問內容_是否要第1種模式.|||||模擬4000筆資料及另提一解法供測，但還是以准大解答為主。 檔案下載：http://ge.tt/9W24S1o|||||1.以空白字元分隔，放在同一儲存格。(對不起，數字只是我舉例，裡面會有英文字母跟數字混和。) 2.底下同項目刪除。 3.最多10列。 4.全部資料3562列。 謝謝。樣本檔可以提供我信箱讓我寄給您嗎?因為這邊的電腦使用上有些限制。 2013-08-05 14:26:51 補充： 抱歉這邊電腦沒有辦法開RAR檔案，也不能下載，得等我回家再看。感謝您！ 2013-08-06 09:02:57 補充： Kubi您好: 准大的版本我還沒辦法看，不過您的解法已經完全符合我的需求，謝謝兩位熱心幫助！ 2013-08-06 11:14:22 補充： 收到了，有兩種合併方式更方便了。謝謝！ 2013-08-06 15:08:47 補充： 其實都可以，不過問題已經有准提部林以及KUBI幫忙解決了。謝謝你! 2013-08-08 09:25:04 補充： OK，謝謝你喔 :)96C448258A94B72B