關於Excel的問題...

Question

請問一下Excel的高手喔...
如果我有一筆由上到下呈一直線四千多欄的Excel資料,這筆資料是機器對一塊晶圓的測試數據
這塊晶圓是由四千多顆長方形的晶片所構成
這筆資料是按照機器測試的順序,由圓形晶圓的左測到右然後往下一列再由右測到左再往下一列由左測到右....依此類推;也就是說,如果我按照它的測試方向和順序來key資料,最後會得到一個由四千多比數據構成的圓
可是我當然不可能一筆一筆資料慢慢key
我打算按照它的格式在另一個表單設定連結,以後我只要把資料貼上去就會自動在該表單構成一個圓,方便我查找資料
請問我要用什麼方法來作會最快?

Answer 1

你必須先提供晶圓上每一橫列各測試多少晶片，Excel才能幫你把它還原成圓形資料圖。

(1)假設機台所提供一直行四千多筆的數據資料，是存在Sheet1工作表的A欄中。
(2)您在Sheet2工作表的A欄，由上到下依序輸入晶圓上每一橫列測試數據的筆數。例如：您由上到下依序輸入10,14,17,20,22....53,53,54,53,53.....22,20,17,14,10(晶圓上下端較窄所以一橫列筆數較少，中間較寬所以一橫列筆數較多)。
(3)將下列VBA程式碼複製到Excel的VisualBasic編輯器中：

Sub Macro1()
'先找出圓形圖中最寬是多少筆資料
Worksheets("Sheet2").Range("B1").FormulaR1C1 = "=MAX(C[-1])"
MaxWidth = Worksheets("Sheet2").Range("B1").Value
i = 1
'開始將直線數據填入圓形圖中
Do
RowWidth = Worksheets("Sheet2").Cells(i, 1).Value　'圖形圖中每列填入資料筆數
RowSpace = Int((MaxWidth - RowWidth) / 2)　'圓形圖每列二側預留的空白
For j = 1 To RowWidth　'圓形圖中填入每列資料
If i Mod 2 > 0 Then　'若為奇數列則由左至右填入數據
Worksheets("Sheet3").Cells(i, RowSpace + j).Value = Worksheets("sheet1").Cells(k + j, 1).Value
Else　'若為偶數列則由右至左填入數據
Worksheets("Sheet3").Cells(i, MaxWidth - RowSpace - j + 1).Value = Worksheets("sheet1").Cells(k + j, 1).Value
End If
Next j
k = k + j - 1　'記憶讀取到直行數據位置
i = i + 1　'跳圓形圖的下一列
Loop Until RowWidth = 0
End Sub

(4)你可將上述程式碼賦予一巨集快速鍵，這樣以後你只要在Sheet1工作表貼上一直行的數據資料後再按快速鍵，在Sheet3工作表就會幫你把它按原來在晶圓上的位置排成一個圓形圖了。

Answer 2

為什麼是圓形?

Answer 3

你是要將原始資料, 還原成按圓形排序的資料嗎?
原始資料從機台自動產出,
然後你想把它們還原成圓形排列嗎?