excel 不定行求和。希望大家帮我解释下代码。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Sheet2.Select
    Dim r As Range, r2 As Range
    For Each r In [a:a].SpecialCells(xlCellTypeConstants, 2)                                               ‘这个2代表的是什么意思？
        If Len(r) Then
            Set r2 = r.Offset(, 2).Resize(1000).Find("合计")
            r2.Offset(, 3).Resize(1, 7) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"     ’sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)这个sum的格式是什么？
        End If                                                                                                                                                                                        c是什么意思？
    Next                                                                                                                                                                                         r" & r.Row + 2 & "又是什么意思？
End Sub

还有个问题for each  next 运行的机理是什么？是i依次从1到N？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL xcel exce cel constant 解释 EXCEL 代码 求和

nirdong 发表于 2009-7-20 23:39
Sheet2.Select
    Dim r As Range, r2 As Range
    For Each r In [a:a].SpecialCells(xlCellTypeConstants, 2)                                               ‘这个2代表的是什么意思？
        If Len(r) Then
            Set r2 = r.Offset(, 2).Resize(1000).Find("合计")
            r2.Offset(, 3).Resize(1, 7) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"     ’sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)这个sum的格式是什么？
        End If                       c是什么意思？
    Next                       r" & r.Row + 2 & "又是什么意思？
End Sub
还有个问题for each  next 运行的机理是什么？是i依次从1到N？

那个sum是R1C1格式求和，r是row,c是column，r.Row + 2是当前单元格行数加2（下移两行），for each next 是对于每个区域内的单位（这里是range，r）执行一遍中间的代码。至于第一个2，你没把问题说清楚，我就不好猜了，你可以查查msdn 或者上百度、谷歌，我就不替你查了

1、这个2代表的是什么意思？
文本格式。

其余同二楼

非常感谢。明白了。 2# zhaozyuan

谢谢了。 3# controlpanel