Re: [算表] 分欄轉置,(VBA)

看板Office作者windknife18 (windknife18)時間16年前 (2009/08/29 23:27)推噓1(1推 0噓 2→)

留言3則, 3人參與討論串1/1

抽空練一下功囉 1. Alt+F11 2. 在左邊視窗上, 按滑鼠右鍵->插入->模組 3. 在右邊視窗上, 貼上以下程式碼 4. Alt+Q 5. Alt+F8 選巨集->執行即可 Option Explicit Sub Marco1() Dim lastrow As Long, nextcol As Long, lastcol As Long, i As Long Dim column As Long, rflag As Long lastrow = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, _ Header:= xlGuess, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers column = 3 Cells(1, column) = Cells(1, 1) & " " & Cells(1, 2) rflag = 2 For i = 2 To lastrow If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(rflag, column) = Cells(i, 1) & " " & Cells(i, 2) rflag = rflag + 1 Else column = column + 1 Cells(1, column) = Cells(i, 1) & " " & Cells(i, 2) rflag = 2 End If Next i Application.ScreenUpdating = True MsgBox ("完成") End Sub ※ 引述《guestsnow (恩恩~~~~)》之銘言： : 軟體:excel : 版本:2007 : 有兩行資料,第一行為名稱,第二行為數據 : 我想請問如何將第一行資料中有相同名稱的資料為同一行, : 將第一行資料分為很多行,而第二行資料可以跟著第一行進行分類, : 如下圖 : 第一行第二行第一行第二行第三行 ....... : A 1 A 1 B 8 C 1 .... : A 8 A 8 B 5 C 5 ... : A 8 A 8 B 1 C 8 ... : A 0 A 0 C 8 : A 5 => A 5 : B 8 : B 5 : B 1 : C 1 : C 5 : C 8 : C 8 : . . : . . : 依此類推,因為資料有幾萬筆,所以用貼的要很久 : 希望各位高手幫忙謝謝!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.229.80.155 ※ 編輯: windknife18 來自: 61.229.80.155 (08/30 00:22)