如何將EXCEL中多行相同資料合併成一行資料？給你一個程式碼吧： Sub 行排序() Dim arr(7) ‘如果一行不止6個單元格，那麼7修改為一行的數量 1 For i = 1 To [a65536].End(xlUp).Row ‘行有多少數量就不用管了，程式碼自己確定 For j = 1 To 6 ‘如果一行單元格的數量 ?arr(j) = Cells(i, j) Next For j = 1 To 6 ‘如果一行單元格的數量 ?Cells(i, j) = WorksheetFunction.Large(arr(), j) Next Next End Sub

在F2中輸入=INDEX(A:A,SMALL(IF(MATCH(A$2:A$6000&"",A$2:A$6000&"",)+1=ROW($2:$6000) *(A$2: A$6000<>""),ROW($2:$6000),65536),ROW(A1)))&""按【組合鍵】確認後下拉填充。在G2中輸入公式=INDEX($B:$B,SMALL(IF($A$2:$A$6000=$F2,ROW($2:$6000),65536),COLUMN(A1)))&""按【組合鍵】確認後右拖、下拉填充。