iT邦幫忙

0

Excel數據整理問題

Joe 2019-02-01 09:28:592489 瀏覽

試了很多方法還是遇到很多困難點請問可以使用那些excel公式或VBA來達到自動整理數據的功能

*問題描述:
需把以下數據自動排序並整理,未整理數據如下圖:
https://ithelp.ithome.com.tw/upload/images/20190201/20115064esbYZO2iXK.jpg

整理完成後數據如下圖:(已先用顏色標示數據整理完成後的對應位置)
https://ithelp.ithome.com.tw/upload/images/20190201/20115064xL5yzjHG5E.jpg

需求:數值整理完成後由下而上整理成欄,並依序排序並由小到大排列,每一行到關鍵字END為第1比數據,請問可以用甚麼方法來自動整理數據,希望能設置成按鈕按下按鈕後開始數據整理謝謝。

1 個回答

0
James
iT邦大師 6 級 ‧ 2019-02-01 09:54:04
最佳解答

有試過VLOOKUP函數嗎?

看更多先前的回應...收起先前的回應...
Joe iT邦新手 5 級 ‧ 2019-02-01 11:31:26 檢舉

有試過,但不知道怎麼去判斷到關鍵字END為第1比數據,請問有方法嗎?

James iT邦大師 6 級 ‧ 2019-02-01 16:35:01 檢舉
Dim i, M, N As Integer
For i = 1 To 20
    N = M + Application.WorksheetFunction.Match(":END", Range(Cells(M + 1, 1), Cells(1000, 1)), 0)
    Cells(2, i + 5).Value = "=VLOOKUP($D2," & Cells(M + 1, 1).Address & ":" & Cells(N, 2).Address & ",2,FALSE)"
    M = N + 1
Next i

這個巨集會填第一列,再往下複製就可以了,

Joe iT邦新手 5 級 ‧ 2019-02-11 09:50:26 檢舉

您好 新年快樂! 使用您提供的方法確實可以執行判斷 但是出現了
無法取得類別 WorksheetFunction 的Match屬性 請問是數值哪個地方問題

https://ithelp.ithome.com.tw/upload/images/20190211/20115064BgxquIH67B.jpg
https://ithelp.ithome.com.tw/upload/images/20190211/20115064mjNt8mTOn0.jpg

James iT邦大師 6 級 ‧ 2019-02-11 10:22:37 檢舉

應該是跑到最後時要再往下找:END時找不到産生的錯誤,這只是簡單的想法給你參考,程式還有很多地方要加強,你再自行研究。

Joe iT邦新手 5 級 ‧ 2019-02-11 10:26:28 檢舉

好的 感謝你!

我要發表回答

立即登入回答