[提升篇第十四回]表格联手二维数组，批量读写一骑绝尘

本节的练习题主要是对【全民一块儿VBA】中第十四回中所提到的练习题作一解答：练习的题具体在以下的百度网盘中

 

连接：https://pan.baidu.com/s/1q6URookoh5FFiwZrGcEt9g
提取码：8x2m

本练习是为学习《提升篇》第十三/十四回的同窗所设计。请你们编写一个程序，处理除本工做表以外的全部其余工做表，将其中全部数字均乘以 6.9 并显示在原单元格中。要求与提示：

（1）使用第十四回中介绍的数组方式进行读写计算。
（2）每张工做表中数据范围不一样，所以建议使用UsedRange肯定其范围。
（3）对于读入的动态数组，可使用UsedRange.Rows.Count和Columns.Count判断数组的大小。此外，也可使用咱们课堂上没有讲解的 Ubound( s,1) 和Ubound（s，2）分别获得s数组第一维（行）和第二维（列）的最大下标值。

 

Sub Tes()
    Dim sht As Worksheet, s(), b As Long, c As Long, i As Long, j As Long    '用于从Range读取内容的数组，必须申明为动态数组，动态数组申明的方法即为：数组名称()；并且必须为变体类型
    For Each sht In Worksheets
        If sht.Name <> Worksheets("sheet1").Name Then
                s = sht.UsedRange
                b = sht.UsedRange.Rows.Count
                c = sht.UsedRange.Columns.Count
                For i = 1 To b
                        For j = 1 To c
                                s(i, j) = s(i, j) * 6.9
                        Next j
                Next i
                sht.UsedRange = s
        End If
    Next sht
End Sub