excel使用技巧大全案例分析：

透過辦事處來查詢要找的名字跟銷售量。

方法：將三列資料寫入陣列ARR1，如果辦事處等於G3中的值，將ARR1中的第2列和第3列的值寫入新陣列ARR2，然後從F5開始，重選與ARR2規格相同的區域，並將ARR2放入其中。

寫程式碼前咱們先來學習兩個VBA函式。

ubound：表示獲取陣列的最大下標

lbound： 表示獲取陣列的最小下標

ubound/lbound裡面第2個引數，表示第幾個維度，不寫或寫1表示返回第1個維度的最大或者最小下標。我們之前學過，用for next 迴圈時，to後面的值要透過對一列裡面非空單元格行數計算，現在有了這個函式，所有都可以解決了。程式碼如下：Sub 篩選()Dim arr1, arr2, ts%, i%, n%Range("f5:g16").ClearContentsarr1 = Range("a2", [c2].End(xlDown))ts = Application.CountIf([a:a], [g3])ReDim arr2(1 To ts, 1 To 2)For i = 1 To UBound(arr1) If arr1(i, 1) = [g3].Value Then n = n + 1 arr2(n, 1) = arr1(i, 2) arr2(n, 2) = arr1(i, 3) End IfNext[f5].Resize(ts, 2) = arr2End Sububound這個在以後我們會經常用的。