[發問] 多行資料合併為一行

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

2^#

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

複製代碼

Changbanana

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

3^#

發表於 2016-9-1 13:15 | 只看該作者

回復 2# 准提部林

wow~ 謝謝准大~
Dim R&, C, N&, Arr, Brr, xD, i&, T$
&，$
這些定義代表的是什麼阿
因為之前我都設這樣
Dim A As Integer
Dim B As Variant
Dim C As String

想要更深入的了解

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

4^#

發表於 2016-9-1 14:43 | 只看該作者

回復 3# Changbanana

Long = &
Integer = %
String = $

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

Changbanana

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

5^#

發表於 2016-9-1 16:06 | 只看該作者

回復 4# 准提部林

了解了~
可否解說下面的寫法
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)

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

是可以這樣改嘛? 感謝您的教學

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

6^#

發表於 2016-9-1 17:42 | 只看該作者

回復 5# Changbanana

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

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

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

hcm19522

大學生 Rank: 4

帖子: 1392
主題: 4
精華: 0
積分: 1402
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-28

熱烈參與勳章

7^#

發表於 2016-9-12 14:17 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/450703586

Changbanana

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

8^#

發表於 2016-9-13 23:01 | 只看該作者

回復 7# hcm19522

函數也是一種方法謝謝你^^

popomilk

帖子: 34
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2016-7-11
最後登錄: 2016-12-2

論壇贊助勳章

9^#

發表於 2016-9-14 11:53 | 只看該作者

回復 2# 准提部林

Dim R&, C, N&, Brr, Arr, 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")

版主大大好
我看不懂紅色的地方，可以請你教學嗎
arr=A1:E8的範圍
為什麼又要重新定義brr變數呢 Redim
Ubound是啥意思?
上網查過實在看不太懂
brr( xxx,xxx)又是啥意思?
CreateObject("Scripting.Dictionary") 這是什麼意思呢

感謝大大

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

10^#

發表於 2016-9-14 13:18 | 只看該作者

回復 9# popomilk

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

可 GOOGLE 查其使用法～～