主题：能否按行号设置计算代码？

Select Case e.DataCol.Name

    Case "第一列","第二列"     '如果刷新的是第一列和第一列

        With Tables("表A")

            For i As Integer = 0 To 4 '选定行

                .Rows(i)("第三列")= .Rows(i)("第一列") *.Rows(i)("第二列")  '选定行相乘

            Next

        End With

End Select

Select Case e.DataCol.Name

    Case "第一列","第二列"

        With Tables("表A")

            For s As Integer = 6 To 12   '选定行

                .Rows(s)("第三列")= .Rows(s)("第一列") +.Rows(s)("第二列")  '选定行相加

            Next

        End With

End Select