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這個在以後我們會經常用的。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
