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

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-9-1 11:21 | 只看該作者

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

請教各位高手~
想利用vba來整理資料

目前工作表一為

想要同樣名字的資料只要出現一行就好
整理在工作表二

這是想要最終的結果

目前筆數較少可以慢慢貼
但資料一多就會很耗時
這樣程式碼該怎麼打呢?
資料如附件

多行資料合併.zip (131.28 KB)

我的想法;利用名字和科目為key值，再帶出成績
不知這樣方法是否可行

樓主熱帖

VBALearner

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

11^#

發表於 2016-9-25 13:17 | 只看該作者

回復 4# 准提部林

請問准大 VBA內建說明檔要如何開啟呢? 記得好像有快捷鍵...但現在忘記了= ="
還有[瀏覽物件] 似乎也只能知道物件裡的成員吧? 大部分的語法好像都沒有寫出解釋是嗎?

真心感謝每一位願意分享所學、指導新手的人!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

10^#

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

回復 9# popomilk

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

可 GOOGLE 查其使用法～～

TOP

popomilk

中學生 Rank: 2

帖子: 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") 這是什麼意思呢

感謝大大

TOP

Changbanana

中學生 Rank: 2

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

論壇贊助勳章

8^#

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

回復 7# hcm19522

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

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

7^#

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

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

回復 5# Changbanana

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

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

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

TOP

Changbanana

中學生 Rank: 2

帖子: 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)

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

TOP

准提部林