エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ 解説「伝票作成マクロ」
       └ 重複しないリストを作成する(並べ替えから行う)

重複しないリストを作成する(並べ替えから行う)

[4260] 2015-05-14 20:08:27 watanbe daichiさんからの投稿です。

いつもありがとうございます。
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

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

 


[4264] 2015-05-15 09:38:46 小川慶一さんからの投稿です。

watanbe daichi さん:

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

>いつもありがとうございます。
>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
>
>回答でいただいている様にできるだけシンプルなコマンドにしたいと思いました。
>コメントで記載されている内容を実行して考えてみようと思います。
>
>

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ