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

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

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

[4271] 2015-05-15 20:32:55 watanbe daichiさんからの投稿です。

ありがとうございます。
もう一度よく見て実施したところ、できました☆
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の後ろでいくつかのパターンがあるのですね。

 


[4350] 2015-05-22 09:36:10 小川慶一さんからの投稿です。

watanbe daichi さん:

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

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

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


>ありがとうございます。
>もう一度よく見て実施したところ、できました☆
>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の後ろでいくつかのパターンがあるのですね。

 


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

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

トップへ