With Selection.CurrentRegion
                                    r = .Rows.Count
                                    c = .Columns.Count
                                    ' 重新计算总行数和总列数并将结果存储到数组中。
                                    myArray = .Resize(r + 1, c + 1)
                                    ' 在下面的嵌套循环中，变量 i 跟踪
                                    ' 行号，变量 j 跟踪
                                    ' 列号。j 在可用列中每循环一次，
                                    ' i 就递增一，而 j
                                    ' 则重新从一到 c 循环一次。
                                    For i = 1 To r
                                    For j = 1 To c
                                    ' 行 i 的总数
                                    myArray(i, c + 1) = myArray(i, c + 1) + myArray(i, j)
                                    ' 列 j 的总数
                                    myArray(r + 1, j) = myArray(r + 1, j) + myArray(i, j)
                                    ' 总计
                                    myArray(r + 1, c + 1) = myArray(r + 1, c + 1) + myArray(i, j)
                                    Next j
                                    Next i
                                    ' 将数组返回工作表，数组中现在包含一个