表單依指定欄位重排巨集問題

lionliu

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

data
下載次數: 6

2012-5-7 17:40

register313

回復 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

回復 2# register313


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

register313

回復 3# lionliu

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

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

lionliu

回復 4# register313


    謝謝reg大大喔:D