資料轉換問題

1^# 跳轉到 »

發表於 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

複製代碼

資料轉換問題-a.zip (7.77 KB)

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。