|
▼アラユタン さん:
>▼kanabun さん:
>>▼アラユタン さん:
>>
>>A列の対象範囲を選択して、
>>まず、表示形式を「標準」に戻しておいてから、
>>[データ]メニュ−の [区切り位置]で
>><次へ> <次へ> <ok> で 数値になります。
>
>ご回答ありがとうございます。
>
>全シートを対象にしたいのです。
>
>私のイメージでは以下のようなソースになるのですが、
>
>Sub Sample()
> For Each sh In ActiveWorkbook.Worksheets
> For Each xCell In Range("A1:A10")
> sh.xCell.Value = sh.xCell.Value
> Next xCell
> Next sh
>End Sub
>
>うまく動作してくれません。
>ご教示願いします。
自己解決致しました。
Sub Sample()
For Each sh In ActiveWorkbook.Worksheets
For Each xCell In Worksheets(sh.name).Range("A1:A100")
xCell.Value = xCell.Value
Next xCell
Next sh
End Sub
上記にて欲しい結果となりました。
ただ処理速度がものすごく遅いのですが、
改善できそうな箇所はないでしょうか。
宜しくお願いします。
|
|