返回列表 上一主題 發帖

[發問] 請問要如何切割數據以方便做圖？

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-12-17 16:56 | 只看該作者

[發問] 請問要如何切割數據以方便做圖？

因為工作需求
所以常常要將圖畫成 sheet2 的樣子
但是從資料庫抓下來的 data 是 sheet1 排列方式
請問該怎麼做才能快速將資料變成 sheet2 的形式以方便做圖呢？

Sheet2 是先對 1. EQ 2. TIME 做排序
再看 EQ 有多少 group 再依順序列在 TIME 的後面，並將同 group 的數值往旁邊移
且根據需要，在 group 的最後插入 0~n 的空白列
（每個 group 後面插入的空白列都是一樣的，不會有的插入一列，有的不插入）
最後再畫出折線圖。

有時候 group 太多，數據會移到亂掉，所以希望藉由 VBA 快速又不易弄錯來達成需求。
排序的部份我可以自己手動排序，但數據切割的部份希望由 VBA 達成。
請幫幫忙，謝謝∼

範例.zip (16.75 KB)
收藏 分享

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
7#
發表於 2013-12-27 10:39 | 只看該作者
回復 6# stillfish00


還是不行

因為公司只能使用 2003 版
可能語法不支援
所以會一直出現錯誤吧……

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2013-12-26 20:46 | 只看該作者
回復 5# Genie
可能吧...我沒辦法測試舊版本
寫法很多種，自己試試吧
ar = Range(.[A1],.[A1].end(xldown)).resize(,4).Value

TOP

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
5#
發表於 2013-12-26 16:30 | 只看該作者
回復 4# stillfish00


排序的部份沒有出現錯誤訊息了
但下一步又跳出 error "ar = .[A1].CurrentRegion.Value"
這裡該怎麼修改呢？

我 Excel 的版本是 2003
這也是版本差異的問題嗎？
謝謝！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-12-26 15:03 | 只看該作者
回復 3# Genie
可能你的版本比較舊，語法不支援
把排序那段換成
  1.         '排序
  2.         .[A1].CurrentRegion.Sort key1:=.[B1], order1:=xlAscending, key2:=.[C1], order2:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom
複製代碼
試看看

TOP

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
3#
發表於 2013-12-26 13:38 | 只看該作者
回復 2# stillfish00


不好意思
我從 "With .Sort" 這裡就開始出現錯誤
請問該如何修正？還是我哪裡有弄錯呢？
謝謝！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-12-20 21:50 | 只看該作者
本帖最後由 stillfish00 於 2013-12-20 22:01 編輯

回復 1# Genie
  1. Sub test()
  2.     Dim ar, d, arEQ, i As Long
  3.    
  4.     '複製來源
  5.     With Sheets("Sheet1")
  6.         .AutoFilterMode = False
  7.         .[A1].CurrentRegion.Copy Sheets("Sheet2").[A1]
  8.         .[A1].AutoFilter
  9.     End With
  10.    
  11.     With Sheets("Sheet2")
  12.         '排序
  13.         With .Sort
  14.             .SortFields.Clear
  15.             .SortFields.Add .Parent.Range("B2:B" & Rows.Count), xlSortOnValues, xlAscending
  16.             .SortFields.Add .Parent.Range("C2:C" & Rows.Count), xlSortOnValues, xlAscending
  17.             .SetRange .Parent.[A1].CurrentRegion
  18.             .Header = xlYes
  19.             .Orientation = xlTopToBottom
  20.             .SortMethod = xlPinYin
  21.             .Apply
  22.         End With
  23.         
  24.         '找出每段起始位置
  25.         ar = .[A1].CurrentRegion.Value
  26.         Set d = CreateObject("scripting.dictionary")
  27.         For i = 2 To UBound(ar)
  28.             If ar(i, 2) <> ar(i - 1, 2) Then d(ar(i, 2)) = i
  29.         Next i
  30.         
  31.         '由後往前分割，插入空白
  32.         arEQ = d.keys
  33.         For i = UBound(arEQ) To LBound(arEQ) + 1 Step -1
  34.             .Range(.Cells(d(arEQ(i)), "D"), .Cells(.Rows.Count, "D")).Insert xlToRight
  35.             .Rows(d(arEQ(i))).Insert xlDown
  36.         Next i
  37.         .[D1].Resize(, d.Count).Value = d.keys
  38.     End With
  39. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題