標題: 表單依指定欄位重排巨集問題 [打印本頁]

---

作者: lionliu    時間: 2012-5-7 17:40     標題: 表單依指定欄位重排巨集問題

請教各位大大
  我現有一個表單依指定欄位重排巨集問題
想用尋找到特定標題後   向下到資料最後一格選取搬移
但是在資料有空格時會有問題要如何處裡。[attach]10836[/attach]

---

作者: register313    時間: 2012-5-7 19:22

本帖最後由 register313 於 2012-5-7 20:28 編輯

回復 1# lionliu

1. Sub xx()
   
2. Dim Ar(), Br()
   
3. Ar = Array("item", "name", "color", "po no", "qty")
   
4. R = [A65536].End(xlUp).Row
   
5. For i = 0 To UBound(Ar)
   
6.   x = Application.Match(Ar(i), [A1:E1], 0)
   
7.   ReDim Preserve Br(i)
   
8.   Br(i) = Application.Transpose(Range(Cells(1, x), Cells(R, x)))
   
9. Next i
   
10. [A1].Resize(R, 5) = Application.Transpose(Br)
    
11. End Sub

複製代碼

---

作者: lionliu    時間: 2012-5-8 09:26

回復 2# register313


    謝謝reg大大的回覆，現趕快測試一下
但是有一問題想請教，第4列   R = [A65536].End(xlUp).Row
是直由a欄最後向上取值，但有可能做到只抓有資料最後的欄位嗎
因為不是很懂若有問的不對的地放請在指正一下。

---

作者: register313    時間: 2012-5-8 14:30

回復 3# lionliu

R = [A65536].End(xlUp).Row
取得A欄最後一個儲存格之列號

RANGE("A" & [A65536].End(xlUp).Row)
取得A欄最後一個儲存格之值

---

作者: lionliu    時間: 2012-5-8 16:05

回復 4# register313


    謝謝reg大大喔:D

---

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