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

本节的练习题主要是对【全民一起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

转载于:https://www.cnblogs.com/lsyb-python/p/11156061.html