返回列表 上一主題 發帖

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

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-7 17:40 | 只看該作者

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

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

1.jpg (73.99 KB)

1.jpg

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2012-5-8 09:26 | 只看該作者
回復 2# register313


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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-5-8 14:30 | 只看該作者
回復 3# lionliu

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

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

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
5#
發表於 2012-5-8 16:05 | 只看該作者
回復 4# register313


    謝謝reg大大喔:D
lionliu

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題