資料轉換問題

小弟我最近在整理資料遇到要將資料轉換為橫列
然後要將指定級距內的資料放入，我該如何寫函數呢?

ex. 原始data
級距 DATA
100 101.32
110 117.53
110 119.25
110 118.99
130 138.32
130 132.79
130 132.72
160 162.92
160 167.19
180 180.98
190 199.25
20 29.31
20 29.52
240 247.46
240 249.75
240 248.66
240 249.57
240 249.03
250 251.22

2. 要改成橫式的

級距 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240
DATA

樓主熱帖

80 字節以內
不支持自定義 Discuz! 代碼

dragonbx

中學生 Rank: 2

帖子: 86
主題: 32
精華: 0
積分: 123
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-28
最後登錄: 2020-7-13

2^#

發表於 2014-9-19 11:54 | 只看該作者

請問用樞紐有辦法做得到嗎??

80 字節以內
不支持自定義 Discuz! 代碼

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2014-9-20 11:57 | 只看該作者

小弟我最近在整理資料遇到要將資料轉換為橫列
然後要將指定級距內的資料放入，我該如何寫函數呢?
ex. ...
dragonbx 發表於 2014-9-19 11:25

Sub nn()
Dim iCol%
Dim lRow&
Dim vD
Dim rTar As Range
Set vD = CreateObject("Scripting.Dictionary")
lRow = 2
Do While Cells(lRow, 1) <> ""
With Cells(lRow, 1)
If Not vD.Exists(.Text) Then
vD(.Text) = .Offset(, 1)
Else
vD(.Text) = vD(.Text) & "," & .Offset(, 1)
End If
End With
lRow = lRow + 1
Loop
iCol = 5
Do While Cells(1, iCol) <> ""
With Cells(2, iCol + 1)
Range(.Offset(, -1), .Offset(20, 26)).Clear
.Value = vD(.Offset(-1, -1).Text)
If .Value <> "" Then
.TextToColumns Comma:=True
Set rTar = Range(.Offset(0), .Offset(, .Offset(0).End(xlToRight).Column - .Column))
rTar.Copy
.Offset(, -1).PasteSpecial Transpose:=True
rTar.Clear
End If
End With
iCol = iCol + 1
Loop
End Sub