19、电子表格自动化处理实用技巧与代码实现

最新推荐文章于 2025-12-20 19:32:34 发布

r2s3t4

最新推荐文章于 2025-12-20 19:32:34 发布

阅读量11

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA实战指南文章标签：电子表格自动化 VBA

本文链接：https://blog.youkuaiyun.com/r2s3t4/article/details/155341239

Excel VBA实战指南专栏收录该内容

23 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

电子表格自动化处理实用技巧与代码实现

1. 矩阵数字自动求和

在处理电子表格时，经常会遇到需要对一个数字矩阵进行自动求和的问题。也就是在一个包含大量数值的矩阵中，需要计算每列的底部总和、每行的右侧总和，以及右下角的总计。手动设置这些求和计算不仅耗时，还容易出错。

1.1 代码实现

以下是实现矩阵自动求和的代码：

Sub matrix_total()
    If Application.Selection.Count = 1 Then MsgBox "Select a range": Exit Sub
    Dim rr As Range
    Dim coord(4) As String
    temp = Application.Selection.Address & "$"
    Set rr = ActiveWindow.RangeSelection
    coord(0) = rr.Column
    coord(2) = rr.Column + rr.Columns.Count - 1
    coord(1) = rr.Row
    coord(3) = rr.Row + rr.Rows.Count - 1
    For Each window In Windows
        For Each Worksheet In window.SelectedSheets
            con = 1
            For n = coord(0) To coord(2)
                formulastr = convert_a