返回列表 上一主題 發帖

橫向排序問題

pcwh3

帖子
51 
主題
14 
精華
0 
積分
143 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-11 
最後登錄
2023-5-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-14 23:14 | 只看該作者

橫向排序問題

橫向排序
直向排序在EXCEL中已有排序選項功能。
但是，我想進行橫向順序排序, 例如:
A1=6、B1=19、C1=2、D1=5，排成: A1=2、B1=5、C1=6、D1=19，
A2=52、B2=19、C2=7、D2=16、E2=1，橫向順序排成：1、7、16、19、52
應如何用VBA處理?
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-14 23:52 | 只看該作者
回復 1# pcwh3
  1. Sub SORT()
  2. Dim ARR()
  3. R = 1
  4. Do Until Cells(R, "A") = ""
  5.    LastC = Cells(R, 256).End(xlToLeft).Column
  6.    ReDim ARR(LastC)
  7.    For C = 1 To LastC
  8.      ARR(C) = WorksheetFunction.Small(Range("A" & R).Resize(1, LastC), C)
  9.    Next C
  10.    For C = 1 To LastC
  11.      Cells(R, C) = ARR(C)
  12.    Next C
  13.    R = R + 1
  14. Loop
  15. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
261  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-24 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-2-15 00:35 | 只看該作者
回復 1# pcwh3

play.gif
學海無涯_不恥下問

TOP

wang

帖子
12 
主題
0 
精華
0 
積分
108 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2010-5-23 
最後登錄
2020-11-16 
4#
發表於 2012-2-15 00:56 | 只看該作者
本帖最後由 wang 於 2012-2-15 01:27 編輯

橫向排序
資料>排序>選項>方向>循列排序

R = 1
Do Until Cells(R, 1) = ""
    Range(Cells(R, 1), Cells(R, 1).End(xlToRight)).Select
    Selection.SORT Key1:=Cells(R, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal
        R = R + 1
Loop
Cells(R, 1).Select

TOP

pcwh3

帖子
51 
主題
14 
精華
0 
積分
143 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-11 
最後登錄
2023-5-8 
5#
發表於 2012-2-15 11:46 | 只看該作者
回復 4# wang

多謝各位幫忙, 了解一二了.

請問如果格式如附件所示，我要將G6起至AR200(暫定)範圍進行橫向順序排列，範圍之內一定會有空格出現的。
我不想逐行逐行用人手改動, VBA可以做到嗎？應如何寫法?
謝謝.
test20120215.zip (8.99 KB)

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
6#
發表於 2012-2-15 12:14 | 只看該作者
回復 5# pcwh3
  1. Sub SORT()
  2. For R = 6 To [A65536].End(xlUp).Row
  3.     If Cells(R, "G") <> "" Then
  4.        Range(Cells(R, "G"), Cells(R, "G").End(xlToRight)).Select
  5.        Selection.SORT Key1:=Cells(R, "G"), Order1:=xlAscending, Header:=xlGuess, _
  6.          OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
  7.          :=xlStroke, DataOption1:=xlSortNormal
  8.        R = R + 1
  9.     End If
  10. Next R
  11. End Sub
複製代碼

TOP

pcwh3

帖子
51 
主題
14 
精華
0 
積分
143 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-11 
最後登錄
2023-5-8 
7#
發表於 2012-2-15 12:46 | 只看該作者
回復 6# register313
多謝幫忙, 正是我想要的.

TOP

a23105

帖子
3 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
W7 
軟體版本
旗艦版 
閱讀權限
10 
性別
男 
註冊時間
2014-12-4 
最後登錄
2014-12-15 
8#
發表於 2014-12-15 10:07 | 只看該作者
EXCEL橫向排序，排序完畢後，會出現空格，無法達到真正的橫向排序。
我有1萬筆資料，想要做到橫向排序，不知道是否有大大可以協助的。
用VBA做到這個功能。

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題