Excel使用VBA宏來查詢包含指定內容的值。

x =範圍(“A65536”)。結束(xlUp)。排

ReDim arr(1到x，1到5)

brr = Range(" a 1:E " & amp；x)

對於i = 2至下界(brr)

如果保留(單元格(I，5))。值，4) = "2002 "則

k = k + 1

對於j = 1到5

arr(k，j) = brr(i，j)

下壹個j

如果…就會結束

接下來我

範圍(" A1:E1 ")。復印紙張2。範圍(" A1:E1 ")

工作表2。範圍(“A2”)。Resize(k，5) = arr

末端接頭