多行資料合併為一行 - Excel程式區

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2016-9-1 12:30 | 顯示全部帖子

上傳檔案無法正常開啟(格式太多), 大約寫一下:注意工作表名稱是否相同

Sub TEST()
Dim R&, C, N&, Arr, Brr, xD, i&, T$
Sheets("工作表2").UsedRange.Offset(1, 0).Clear
Arr = Range([工作表1!A2], [工作表1!A65536].End(xlUp)(1, 5))
ReDim Brr(1 To UBound(Arr), 1 To 8)
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
T = Arr(i, 1): R = xD(T)
If R = 0 Then
N = N + 1: R = N: xD(T) = N
Brr(R, 1) = Arr(i, 1): Brr(R, 2) = Arr(i, 2): Brr(R, 3) = Arr(i, 3)
End If
C = Application.Match(Arr(i, 4), Array("國語", "英文", "數學", "物理", "化學"), 0)
Brr(R, C + 3) = Arr(i, 5)
Next i
[工作表2!A2].Resize(N, 8) = Brr
End Sub

複製代碼

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2016-9-1 14:43 | 顯示全部帖子

回復 3# Changbanana

Long = &
Integer = %
String = $

有時間可以進VBE內建說明檔多看看, 能挖到不少知識及技巧!
另〔檢視〕〔瀏覽物件〕也是不錯的視窗，可以一一去看各種物件．屬性等等的說明！

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2016-9-1 17:42 | 顯示全部帖子

回復 5# Changbanana

Brr(R, C + 3) = Arr(i, 5) 這是工作表1的〔分數〕欄（Ｅ欄），不須變動

若之後想要再增加一個科目
C = Application.Match(Arr(i, 4), Array("國語", "英文", "數學", "物理", "化學","社會"), 0)

Ｃ是用來判斷〔科目〕分數要放在工作表２的第幾個欄位，
若科目是〔社會〕，Ｃ＝６，６＋３＝９，分數放在第９欄（Ｉ欄）

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2016-9-14 13:18 | 顯示全部帖子

回復 9# popomilk

brr( xxx,xxx)又是啥意思? ＞〔陣列〕Array　
CreateObject("Scripting.Dictionary") 這是什麼意思呢　＞　字典檔物件　

可 GOOGLE 查其使用法～～