返回列表 上一主題 發帖

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

Changbanana

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-1 11:21 | 顯示全部帖子

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

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

目前工作表一為 1.png

想要同樣名字的資料只要出現一行就好
整理在工作表二
這是想要最終的結果

目前筆數較少可以慢慢貼
但資料一多就會很耗時
這樣程式碼該怎麼打呢?
資料如附件 多行資料合併.zip (131.28 KB)

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

Changbanana

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

論壇贊助勳章
2#
發表於 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
  
想要更深入的了解

TOP

Changbanana

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

論壇贊助勳章
3#
發表於 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

Changbanana

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

論壇贊助勳章
4#
發表於 2016-9-13 23:01 | 顯示全部帖子
回復 7# hcm19522


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

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題