標題: [發問] 如何抽出不等於零的欄位表頭? [打印本頁]

---

作者: winston219    時間: 2011-1-7 16:25     標題: 如何抽出不等於零的欄位表頭?

如附檔，謝謝大大![attach]4343[/attach]

---

作者: Hsieh    時間: 2011-1-7 16:35

回復 1# winston219

1. Sub Ex()
   
2. Dim Ar()
   
3. For Each a In Range([A1], [A1].End(xlToRight))
   
4. If Application.Sum(a.EntireColumn) <> 0 Then
   
5. ReDim Preserve Ar(s)
   
6. Ar(s) = a
   
7. s = s + 1
   
8. End If
   
9. Next
   
10. Sheet2.[B1].Resize(, s) = Ar
    
11. End Sub

複製代碼

---

作者: winston219    時間: 2011-1-11 20:47

感謝Hsieh大大!

---

作者: winston219    時間: 2011-1-12 00:24

請問為何執行後，偵錯到 Sheet2.[B1].Resize(, s) = Ar 這一行有問題?

---

作者: Hsieh    時間: 2011-1-12 09:01

回復 4# winston219
如果沒有符合條件的欄位
造成s=0時就會出錯

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)