For each 语句解析，请高手帮助

jinhui8012

今天在研究一段代码，有几个不是很清楚，请高手指教
第一段代码：
For Each iRng In Sheets("录入表").Range("d4", Sheets("录入表").[d65536].End(3))   
            ‘穷尽“录入表”的d列（从D4开始）的所有项目，这句看明白了
    If iRng = [d3] Then Cell.Add iRng(1, -2), key:=CStr(iRng(1, -2))   
next            
            ’如果有与单元格D3相同的，就？？？？？？看不明白了.这段里面的Cell.Add iRng(1, -2), key:=CStr(iRng(1, -2))是什么意思啊？？？

第二段代码
Set rng = Sheets("汇总表").[a:a].Find([d3], , , 1)   
          ‘在“汇总表”中的A列寻找单元格D3的内容，后面有几个逗号，还有个1，就不知道是做什么用的了
  If Not rng Is Nothing Then  
            ’如果发现了？还是没有发现，这个语句不明白
    If rng(1, 2) <> "" Then n = n + 1: c = 1   
           ‘rng(1,2)是指单元格吗？ 如果它为空的话，n=n+1，后面那个冒号还有c=1是什么意思啊
   End If

这两句是下面那个文件里的，另附上源文件，在模块1中，请高手指教

[ 本帖最后由 jinhui8012 于 2011-3-1 21:55 编辑 ]