Dim arr1，i & amp，j美元
得到F1:Fx的區域，其中X依賴於A列最後壹個單元格的行，例如A1到A10有內容，A11開頭沒有內容，那麽arr1得到的區域就是F1: F66。
arr 1 = Range(" f 1:f " & amp；單元格(行。計數，1)。結束(3)。行)
I單元格數量在1到arr1的範圍內
對於i = 1至UBound(arr1)
如果arr1中第(I，1)個元素的內容包含用通配符表示的“* section *”，那麽將執行IF中的語句。
如果arr1(i，1)像“* section *”那麽
j = j & amp"，A " & amp我
如果…就會結束
接下來我
' j '變量存儲F列中包含“* section *”的A列中的相應單元格，如“，A1，A2”。因為前面有壹個逗號，所以需要用Mid(j，2)從第二個符號返回來去掉前面的逗號。
下面整句的用法是選擇所有包含“* section *”內容的行
Range(Mid(j，2))entire row . select。
末端接頭