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
watanbe daichiさんの投稿
(投稿ID: 1299)
EXCEL2010以降のものなので、私も下記のコメントの様な状況になりました。
回答でいただいている様にできるだけシンプルなコマンドにしたいと思いました。
コメントで記載されている内容を実行して考えてみようと思います。
小川慶一さんのコメント
(コメントID: 2550)
まずは、トライしてみてください。
.Header = xlGuess になっていますね。特にここは要注意です。2003までと同様です。
watanbe daichiさんのコメント
(コメントID: 8201)
もう一度よく見て実施したところ、できました☆
コメント頂いた様に2003と同じことが入っていました。
ヘルプを参照しながらでしたが、headerの後ろでいくつかのパターンがあるのですね。
小川慶一さんのコメント
(コメントID: 2559)
お返事遅くなりました。(あまり心配していませんでしたが)
>コメント頂いた様に2003と同じことが入っていました。
>ヘルプを参照しながらでしたが、headerの後ろでいくつかのパターンがあるのですね。
↑テキストの2003にかかる項目も参照ください。