Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3784 / 13646 ツリー ←次へ | 前へ→

【60227】目に見えない不要なデータを削除したい Jun 09/2/5(木) 11:52 質問[未読]
【60228】Re:目に見えない不要なデータを削除したい Jaka 09/2/5(木) 13:04 発言[未読]
【60230】Re:目に見えない不要なデータを削除したい Jun 09/2/5(木) 13:59 お礼[未読]

【60227】目に見えない不要なデータを削除したい
質問  Jun  - 09/2/5(木) 11:52 -

引用なし
パスワード
   Range("A1").CurrentRegion.Select
でA1を含む表を選択し、罫線を引くマクロを作っています

実際にデータが入力されているのはは23行までですが、
352行まで範囲選択されてしまいます

23行から352行の間に不要なデータが入っているのかなぁと思います
Ctrl+Endで確認するとZ500が最終セルになっているようです

A列の最終行以下(A65536まで)のデータのクリアをしたいのですが
コードがうまく組めません・・・

どなたかご教授いただけますでしょうか?
よろしくお願い致します。

【60228】Re:目に見えない不要なデータを削除したい
発言  Jaka  - 09/2/5(木) 13:04 -

引用なし
パスワード
   ▼Jun さん:
>Range("A1").CurrentRegion.Select
>でA1を含む表を選択し、罫線を引くマクロを作っています
>
>実際にデータが入力されているのはは23行までですが、
>352行まで範囲選択されてしまいます
数式が入っているとか?
もしくは」、
長さ0の文字が入っているのでは?
例えば、
「=""」などの数式をコピーして値だけ貼り付けたりすると
そうなったりします。
これを消すには、手作業だと
列を選択してデータ → 区切り位置 → そのまま完了
で出来ます。
ただ、文字の数字(だけの場合)などは数値に変換されたり、
全角が半角数値に変換されます。
手作業ですみます。
なんならマクロ記録しても良いだろうし、

数式が使われていないのなら、こんなのでも良いだろうし。

With Range("A1:A1000")
  .Value = .Value
End With
With Range("A1").CurrentRegion
  .Select
End With


>23行から352行の間に不要なデータが入っているのかなぁと思います
>Ctrl+Endで確認するとZ500が最終セルになっているようです
これは、セルの書式等が変更されているからでは?

【60230】Re:目に見えない不要なデータを削除したい
お礼  Jun  - 09/2/5(木) 13:59 -

引用なし
パスワード
   B列とC列に不要なデータ(おそら「く=""」)が入っていたようです

ご教授いただいたコードで上手いこと出来ました!
ありがとうございます。

3784 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free