レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

watanbe daichiさんの投稿

(投稿ID: 1299)

いつもありがとうございます。
EXCEL2010以降のものなので、私も下記のコメントの様な状況になりました。

Range("B1").Select
    ActiveWorkbook.Worksheets("main").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("main").Sort.SortFields.Add Key:=Range("B1:B317"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("main").Sort
        .SetRange Range("A1:B317")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

回答でいただいている様にできるだけシンプルなコマンドにしたいと思いました。
コメントで記載されている内容を実行して考えてみようと思います。

2015/05/15 05:08

小川慶一さんのコメント

(コメントID: 2550)

watanbe daichi さん:

まずは、トライしてみてください。
.Header = xlGuess になっていますね。特にここは要注意です。2003までと同様です。

2015/05/15 18:38

watanbe daichiさんのコメント

(コメントID: 8201)

ありがとうございます。
もう一度よく見て実施したところ、できました☆

Range("A1:B317").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes

Dim hida As Long
Dim migi As Long
    migi = 2
    For hida = 2 To 317
    If Range("B" & hida).Value <> Range("B" & hida - 1).Value Then
            Range("D" & migi).Value = migi - 1
            Range("E" & migi).Value = Range("B" & hida).Value
            migi = migi + 1
    End If
    Next
End Sub

コメント頂いた様に2003と同じことが入っていました。
ヘルプを参照しながらでしたが、headerの後ろでいくつかのパターンがあるのですね。

2015/05/16 05:32

小川慶一さんのコメント

(コメントID: 2559)

watanbe daichi さん:

お返事遅くなりました。（あまり心配していませんでしたが）

>コメント頂いた様に2003と同じことが入っていました。
>ヘルプを参照しながらでしたが、headerの後ろでいくつかのパターンがあるのですね。

↑テキストの2003にかかる項目も参照ください。

2015/05/22 18:36