返回列表 上一主題 發帖

[發問] 如何運用EXCEL將不同列內容轉至欄位

abi

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2014-3-3 
最後登錄
2015-7-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-3 22:46 | 只看該作者

[發問] 如何運用EXCEL將不同列內容轉至欄位

請教各位大大
我有一份六千多筆的資料，因為每位學生測量體重的次數不同(最少1筆，最多10筆)
我要如何將同一個學生每一次的體重內容放至欄呢？(圖解說明如下)  謝謝各位的幫助。

2014-03-03_224237.jpg (45.76 KB)

2014-03-03_224237.jpg

收藏 分享

ricky8751

帖子
31 
主題
6 
精華
0 
積分
37 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2010-10-31 
最後登錄
2017-10-26 
2#
發表於 2014-3-4 11:38 | 只看該作者
回復 1# abi





我的方法供參考

TOP

p212

帖子
618 
主題
17 
精華
0 
積分
663 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-7-5 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
3#
發表於 2014-3-4 12:58 | 只看該作者
本帖最後由 p212 於 2014-3-4 13:07 編輯

回復 1# abi
欄位配置請如下圖所示(原始資料範圍A:C；重整資料範圍E:L；體重欄位以至體重(7)為例，若有增加需求可自行向右擴展欄位名稱。)
作法：
步驟1_定義名稱：(1)名稱(N)欄輸入姓名；(2)參照到(R)欄輸入=OFFSET(Sheet1!$A$2,,,COUNTA(Sheet1!$A:$A)-1)
步驟2：儲存格E2輸入陣列公式=IFERROR(INDEX(姓名,MATCH(0,COUNTIF($E$1:E1,姓名),0)),"")，以Ctrl+Shift+Enter輸入，再向下複製公式，上列公式目的在提取位於A欄姓名的唯一值。
步驟3：儲存格F2輸入=IF(COUNTIF(姓名,$E2)<COLUMN(A$1),"",OFFSET($A$1,MATCH($E2,姓名,0)+COLUMN(A$1)-1,2))，向右向下複製公式。
請參考！

Fig.JPG (101.08 KB)

Fig.JPG

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
4#
發表於 2014-3-4 13:14 | 只看該作者
『有一份六千多筆的資料』, 應是全校資料,
樓上的方法,
如不同班同姓名, 會被誤刪!!
除非一班一班人工處理

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
5#
發表於 2014-3-4 13:24 | 只看該作者
to ricky8751 & p212 大大：
抱歉, 大大的方法應可行,
只要加輔助欄, 輔助欄 填入 年級 & 班級 & 姓名,
排序後, 再將 輔助欄 視為姓名, 如上操作, 應沒問題,
思慮不周, 謹向兩位大大致歉!!

TOP

abi

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2014-3-3 
最後登錄
2015-7-28 
6#
發表於 2014-3-4 20:46 | 只看該作者
to ricky8751 & p212 & yen956
謝謝你們的幫助，我趕緊來試試看。

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
7#
發表於 2014-3-6 14:44 | 只看該作者
回復 6# abi
這麼久了, 問題應該早就解決了,
我只是純練功, 順便賺點數, 請不要介意, 並請指教.
  1. Option Base 1
  2. Option Explicit
  3. Private Sub CommandButton1_Click()
  4.     Dim i, startL, 紀錄數 As Integer
  5.    
  6.     紀錄數 = [A1].End(xlDown).Row - 1
  7.    
  8.     '(1) 按 1年級、2班級、3姓名 遞增排序
  9.     '[A1].Resize(紀錄數 + 1, 14).Sort _
  10.            Key1:=Range("A1"), Order1:=xlAscending, _
  11.            Key2:=Range("B1"), Order1:=xlAscending, _
  12.            Key3:=Range("D1"), Order1:=xlAscending, _
  13.            Header:=xlYes
  14.            
  15.     '(2) 主程式
  16.     i = 1
  17.     Do
  18.         i = i + 1
  19.         If Cells(i, 4) = Cells(i + 1, 4) Then
  20.             startL = i
  21.             Do
  22.                 i = i + 1
  23.             Loop Until Cells(i, 4) <> Cells(i + 1, 4) Or Cells(i, 1) = ""
  24.             
  25.             '利用 複製→選擇性貼上→轉置 的方法, 可將 橫列 與 直欄 互轉
  26.             Cells(startL, 6).Resize(i - startL + 1, 1).Copy
  27.             
  28.             '不能貼在原處, 要貼到 往右一格
  29.             Cells(startL, 7).PasteSpecial Transpose:=True
  30.         End If
  31.     Loop Until i > 紀錄數 Or Cells(i, 1) = ""
  32.    
  33.     '(3) 因 (2) 不能貼在原處, 要貼到 往右一格, 故刪 除刪除原體重
  34.     [F2].Resize(紀錄數 + 1, 1).Delete Shift:=xlToLeft
  35.    
  36.     '(4) 刪除 體重的空白列
  37.     For i = 紀錄數 + 1 To 2 Step -1
  38.         If Cells(i, 6) = "" Then Rows(i).Delete
  39.     Next

  41.     '(5) 按 1年級、2班級、3座號 遞增排序
  42.     '[A1].Resize(紀錄數 + 1, 14).Sort _
  43.            Key1:=Range("A1"), Order1:=xlAscending, _
  44.            Key2:=Range("B1"), Order1:=xlAscending, _
  45.            Key3:=Range("C1"), Order1:=xlAscending, _
  46.            Header:=xlYes
  47. End Sub
複製代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題