|
▼海 さん:
kaoruです。
Sub sort_Data()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],4)"
Selection.AutoFill Destination:=Range("B1:B7"), Type:=xlFillDefault
Range("B1").Select
Range("B1:B7").Sort Key1:=Range("B1")
End Sub
となるんですかね?間違ってたらすみません。
>A1 B1
>14252
>1345
>123452
>12345
>34532
>123453
>1235
>
>上の様な表を作ります。B列にLEFT関数を使って4桁までの数字を取り出します。
>そのB列を昇順に並べ替えたいのです。
>マクロの記録を使ってやってみたところ
> Range("B1").Select
> ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],4)"
> Selection.AutoFill Destination:=Range("B1:B7"), Type:=xlFillDefault
>で4桁の数字を取り出し
> Range("B1").Select
> Range("B1:B7").Sort Key1:=Range("B1")
>で昇順に並べ替えはできるのですが
>このコードを1つにまとめるにはどーすればいいのでしょうか?
>よろしくお願いします。
|
|