インデックスに戻る

TITLE:  [WinLife-Exe:03740] Re:エクセルでのソート
--------------------------------------------------
> もし、空欄があれば詰めることが出来れば
> なおうれしいのですが・・。
> 　２　５　７　　　　　１　２　４　
> 　　　１　９　　→　　５　６　７
> 　４　６　８　　　　　８　９
> のように。
> どんなマクロならＯＫでしょう？
----------------------------------------------------
どうしたら出来るかな？と思い、ちょっと作ってみました。
まぁ一例として。参考になりますか?(^^;;;

----------------------------------------------------
Sub ソートのサンプル()
    
    '----------------------------------
        '--  データはあらかじめ　A1〜C3へ入力しておく
        '--------------3*3のデータを作業領域に転記
    Application.ScreenUpdating = False
    Dim m(9)
    i = 1
    For Y = 1 To 3
        For X = 1 To 3
            m(i) = Cells(Y, X).Value
            i = i + 1
        Next X
    Next Y
    
    For i = 1 To 9
        Cells(i + 10, 1).Value = m(i)
    Next i
    '-------------ソート
     Range("A11:A19").Select
    Selection.Sort Key1:=Range("A11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin
    '-------------元の場所に書き戻す
    i = 1: X = 1: Y = 1
    For i = 1 To 9
    m(i) = Cells(i + 10, 1).Value
    '-----------------------------空欄ならスキップ
    If (IsNull(m(i)) = False) Then
        Cells(Y, X).Value = m(i)
        X = X + 1
        If X = 4 Then
            X = 1: Y = Y + 1
        End If
    End If
    Next i
    '-----------------------作業領域の削除
    Range("A11:A19").Select
    Selection.ClearContents
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

------
HyperTown Station
<http://www.lifecity.ne.jp/hypertown/station/>

------------------------------
[WinLife-Exe:03722] docからxlsへの一括変換
　　└[WinLife-Exe:03723] コマンドライン版32bit版LHA(DLL不要）ってありましたでしょうか？
　　　└[WinLife-Exe:03724] Re: コマンドライン版32bit版LHA(DLL不要）ってありましたでしょうか？
　　└[WinLife-Exe:03726] PCを捨てる前にする事。
　　　└[WinLife-Exe:03727] Re: [WinLife-Exe:03726] PCを捨てる前にする事。
　　└[WinLife-Exe:03725] Internet Explorer のバージョン
　　　└[WinLife-Exe:03728] Re: Internet Explorer のバージョン
　　　　└[WinLife-Exe:03729] ネットミーティングで電話したいんです。
　　└[WinLife-Exe:03730] Officeファイルの本文検索
　　　└[WinLife-Exe:03731] Re: Officeファイルの本文検索
　　　　└[WinLife-Exe:03732] クローンＣＤ
　　　　　└[WinLife-Exe:03734] Re: CloneCD
　　　　　　└[WinLife-Exe:03735] Re: CloneCD
　　　　　　　└[WinLife-Exe:03737] Re: CloneCD
　　　　　└[WinLife-Exe:03736] re: クローンＣＤ
　　　　　　└[WinLife-Exe:03741] Re: クローンＣＤ
　　　└[WinLife-Exe:03733] Re: Officeファイルの本文検索
　　　└[WinLife-Exe:03738] エクセルでのソート
　　　　└[WinLife-Exe:03739] Re:エクセルでのソート
　　　　└[WinLife-Exe:03740] Re:エクセルでのソート
　　　　　└[WinLife-Exe:03743] Re:エクセルでのソート
　　　└[WinLife-Exe:03745] ファイルの関連付けについて
　　　　└[WinLife-Exe:03746] Re: ファイルの関連付けについて
　　　　　└[WinLife-Exe:03750] Re: ファイルの関連付けについて
　　　　└[WinLife-Exe:03747] Re: ファイルの関連付けについて
　　　　　　　└[WinLife-Exe:03742] autorun の作り方
　　　　　　　　└[WinLife-Exe:03744] Re: autorunの作り方
　　　　　　　　　└[WinLife-Exe:03748] Re: [WinLife-Exe:03744] Re: autorunの作り方
　　　　　　　　　　└[WinLife-Exe:03749] Re: autorunの作り方
　　　　　　　　　　　└[WinLife-Exe:03751] Re: autorun の作り方
　　　　　　　　　　　　└[WinLife-Exe:03752] Re: autorun の作り方
　　　　　　　　　　　　　└[WinLife-Exe:03753] Re: autorun の作り方
　　　　　　　　　　　　　└[WinLife-Exe:03756] Re: autorun  の作り方
　　└[WinLife-Exe:03754] Excelのキーボード操作
　　　└[WinLife-Exe:03755] Re: Excelのキーボード操作
　　　└[WinLife-Exe:03757] Re: Excelのキーボード操作