【練習(xí)】Dictionary去除源數(shù)據(jù)中的重復(fù)項(xiàng)

醉酒狂生

這是剛擼的代碼，新鮮熱辣。作用嘛就是為了將"數(shù)據(jù)表"中A列的單位名稱去重后放到碗里去(combobox控件)。閑話不講，直接上代碼：

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Data;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using System.Windows.Forms;
   
7. using System.Xml.Linq;
   
8. using Microsoft.Office.Tools.Excel;
   
9. using Microsoft.VisualStudio.Tools.Applications.Runtime;
   
10. using Excel = Microsoft.Office.Interop.Excel;
    
11. using Office = Microsoft.Office.Core;
    
12. 
    
13. namespace Test
    
14. {
    
15.     public partial class Sheet1
    
16.     {
    
17.         private void Sheet1_Startup(object sender, System.EventArgs e)
    
18.         {
    
19.             Excel.Worksheet shD = Application.ActiveWorkbook.Worksheets["數(shù)據(jù)表"];
    
20.             Excel.Range rnAll = shD.Range["A2:A" + Convert.ToString(shD.Range["A1"].End[Excel.XlDirection.xlDown].Row)];
    
21.             Dictionary<String,Int32> dicName1 = new Dictionary<string,Int32>();
    
22.             String  valStr;
    
23.             foreach (Excel.Range rn in rnAll)
    
24.             {
    
25.                valStr = Convert.ToString(rn.Value);
    
26.                dicName1[valStr] = rn.Row;
    
27.             }
    
28.             Dictionary<string, Int32>.KeyCollection keyColl = dicName1.Keys;                       
    
29.             foreach (string s in keyColl)
    
30.             {
    
31.                 comboBox1.Items.Add(s);
    
32.             }               
    
33.         }
    
34. 
    
35.         private void Sheet1_Shutdown(object sender, System.EventArgs e)
    
36.         {
    
37.         }
    
38. 
    
39.         #region VSTO 設(shè)計(jì)器生成的代碼
    
40. 
    
41.         /// <summary>
    
42.         /// 設(shè)計(jì)器支持所需的方法 - 不要
    
43.         /// 使用代碼編輯器修改此方法的內(nèi)容。
    
44.         /// </summary>
    
45.         private void InternalStartup()
    
46.         {
    
47.             this.Startup += new System.EventHandler(this.Sheet1_Startup);
    
48.             this.Shutdown += new System.EventHandler(this.Sheet1_Shutdown);
    
49.         }
    
50. 
    
51.         #endregion
    
52. 
    
53.         public EventHandler comboBox1_SelectedIndexChanged { get; set; }
    
54.         public MouseEventHandler comboBox1_MouseClick { get; set; }
    
55.         public Excel.DocEvents_ActivateEventHandler Sheet1_ActivateEvent { get; set; }
    
56.         public Excel.DocEvents_ChangeEventHandler Sheet1_Change { get; set; }      
    
57.     }
    
58. }

復(fù)制代碼

下面是附件，有興趣的盆友可下載了試一試。
能想到的運(yùn)行環(huán)境（office2010-vs2010），在此謝謝（佛爺、汪老師、西西）

faunus

今天 擼這個(gè)。

hehex

已擼。
不過(guò)有點(diǎn)疑問(wèn)，似乎不應(yīng)該使用外接程序吧？這個(gè)明明是涉及到工作薄的具體操作。是否應(yīng)該從工作薄入口進(jìn)去寫(xiě)碼？
對(duì)C# 容器和泛型完全不懂，擼完也是一頭霧水

tianping

昨天沒(méi)顧上，今天擼

Amas

代碼能做一下注釋就好了，容易理解思路。

oldyuan

遍歷區(qū)域的方法。在VBA里一般是將數(shù)據(jù)讀取到數(shù)組中，然后遍歷數(shù)組�？戳税胩煲矝](méi)找到像VBA那樣將區(qū)域轉(zhuǎn)數(shù)組的方法。哎！