[發問] 陣列資料依欄位抬頭名稱進行擺放

本帖最後由 art00083303 於 2016-4-15 21:30 編輯

需求如下圖所示：

列數不變，欄位會有增減

完成的紅色表格中，欄位抬頭排序不限。
我目前作法：

1.跑回圈方式抓取各日期下的資料，判斷欄位數量NN，將數據丟進列Arrdata(4-1,NN)中
2.將Arrdata()依欄位順序丟入紅色表格，這個步驟我想破頭不知道該如何達成，初步思緒：
a.因陣列資料Arrdata(0,NN)包含欄位抬頭名稱，不曉得是否能夠判斷Arrdata()內依欄位抬頭名稱放入資料，若缺欄位就新增欄。
b.或是我的思緒是不可行的，有請大大指導。

Question.JPG (131.72 KB)

art00083303

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 47
點名: 0
作業系統: Windows 10
軟體版本: Office2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-15
最後登錄: 2017-8-15

6^#

發表於 2016-4-18 18:23 | 只看該作者

回復 5# luhpro
經運行，完全符合需求~!!
謝謝大大，受教了

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

5^#

發表於 2016-4-17 23:12 | 只看該作者

回復 4# art00083303
那就在抓取資料時, 一併建立結果標題攔 : (當然, 順序會變成依抓取先後排列)

Private Sub cbMerge_Click()
Dim iI%, iJ%, iSCol%, iTCol%
Dim lRow&
Dim aR()
Dim vD
Rows("21:" & Rows.Count).Clear ' 清掉上一次的資料(含標題攔)
Set vD = CreateObject("Scripting.Dictionary")
Cells(21, 2) = "DATE"
Cells(21, 3) = "TIME"
lRow = 22
iTCol = 4
For iI = 2 To 14 Step 6 '3 個表格
iSCol = 4
While Cells(iI, iSCol) <> "" ' 檢查標題攔
If Not (vD.Exists(CStr(Cells(iI, iSCol)))) Then
vD(CStr(Cells(iI, iSCol))) = iTCol
Cells(21, iTCol) = Cells(iI, iSCol)
iTCol = iTCol + 1
End If
iSCol = iSCol + 1
Wend
For iJ = 1 To 3
With Cells(lRow, 2)
.NumberFormat = "yyyy/m/d"
.Value = Cells(iI + iJ, 2) ' DATE
End With
With Cells(lRow, 3)
.NumberFormat = "hh:mm"
.Value = Cells(iI + iJ, 3) ' TIME
End With
iSCol = 4
While Cells(iI + iJ, iSCol) <> ""
With Cells(lRow, vD(CStr(Cells(iI, iSCol))))
.Value = Cells(iI + iJ, iSCol)
.Interior.ColorIndex = Cells(iI + iJ, iSCol).Interior.ColorIndex ' 複製底色
End With
iSCol = iSCol + 1
Wend
lRow = lRow + 1
Next
Next
End Sub

複製代碼

放-a.zip (11.18 KB)

TOP

art00083303

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 47
點名: 0
作業系統: Windows 10
軟體版本: Office2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-15
最後登錄: 2017-8-15

4^#

發表於 2016-4-16 10:57 | 只看該作者

回復 2# luhpro
試run了大大提供的Code,
發現您的方式是，總表欄位名稱已知，將3個表格資料分門別類完成總表。
我的問題傾向於已知欄位為3個表的欄位抬頭(扣除"日期"、"時間"欄，總表Total未必是6欄)，藉由大大提供的CODE，小弟欲改進地方卡在於：
判斷總共有幾個欄位抬頭(重複欄位算做1欄)，本例中重複性的有6欄，非重複性的有2欄，因此總表形成欄位共有6+2欄。
還請大大指教。

放.zip (18.84 KB)

TOP

art00083303