[提升篇第十四回]表格聯手二維數組，批量讀寫一騎絕塵

本節的練習題主要是對【全民一塊兒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