Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3754 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60347】空白セルの処理 ダメダメ君 09/2/11(水) 17:39 質問[未読]
【60349】Re:空白セルの処理 横入り 09/2/12(木) 7:59 発言[未読]
【60350】Re:空白セルの処理 ダメダメ君 09/2/12(木) 9:07 発言[未読]
【60351】Re:空白セルの処理 neptune 09/2/12(木) 9:41 発言[未読]
【60356】Re:空白セルの処理 トト 09/2/12(木) 16:39 発言[未読]
【60357】Re:空白セルの処理 トト 09/2/12(木) 16:44 発言[未読]
【60360】Re:空白セルの処理 ダメダメ君 09/2/13(金) 1:09 お礼[未読]
【60347】空白セルの処理
質問  ダメダメ君  - 09/2/11(水) 17:39 -
引用なし
パスワード
   シート１からシート２へのデータのコピーの際、一定範囲を指定してコピーアンドペーストマクロで行いました。

ところが此のシート２を基に折れ線グラフを作成した時に空白セルもデータ線が繋がってしまいました。

コピー先の各セルを一つずつ検索して””で有ればNULLに置き換えるマクロをFoｒＥａｃｈを用いて作ったのですが、スピードが遅すぎます。

Selection.Replace を用いて What:="", Replacement:=Null　としたのですが旨く置き換わらないようです。

指定範囲の空白を早く旨くエンプティー状態にする方法を教えて下さい。
お願い致します。
因みにデータは 縦200、横5列程の数と成っています。
【60349】Re:空白セルの処理
発言  横入り  - 09/2/12(木) 7:59 -
引用なし
パスワード
   Nullって何ですか？余り使わないと思いますが。
【60350】Re:空白セルの処理
発言  ダメダメ君  - 09/2/12(木) 9:07 -
引用なし
パスワード
   ▼横入り さん：
>Nullって何ですか？余り使わないと思いますが。

そうですね、、、Empty、、、若しくは、、Clear、、、とかで表す方が良いのでしょうか、、？？
兎に角、何も入ってい無い状態ですね。。。

シート１の或セルで答えに成る部分に IFを用いた関数で一つの条件下の答えが○○=""と表すと表示上は何も出ませんが此の答えのセルを”値”のみ（他のシートの）他のセルへコピーしても何か、何も操作していないセルとは違う状態のようです。

コピーしたセルの空白を探し１つずつ、Nullコード、若しくはEmptyコードを書き込んだりセルの値をDelete,又はClear すれば解決はするのですが、データ量が増すと速度が遅すぎて使用に耐えません。。

せっかく組み込みで検索置き換えが有るのだからこれを利用して何とか成らないかなと思うんですが、、、、

良いアイデア有りましたら宜しくお願い致します。
【60351】Re:空白セルの処理
発言  neptune  - 09/2/12(木) 9:41 -
引用なし
パスワード
   ▼ダメダメ君 さん：
こんにちは

rangeオブジェクトの初期状態（何も入ってない状態、無操作状態）はEmptyですよね。
Excelのrangeオブジェクトにnullっていう概念は無いんじゃないでしょうか？

Emptyでやってみましたか？
【60356】Re:空白セルの処理
発言  トト  - 09/2/12(木) 16:39 -
引用なし
パスワード
   ▼ダメダメ君 さん：

With Range("A1").CurrentRegion
　　.Value = .Value
End With

このような感じで良いのでしょうか。
【60357】Re:空白セルの処理
発言  トト  - 09/2/12(木) 16:44 -
引用なし
パスワード
   ▼ダメダメ君 さん：

失敗m(_~_)m

数式等が入っていると消えてしまいます。
数式等が使用されてない場合限定でした。
【60360】Re:空白セルの処理
お礼  ダメダメ君  - 09/2/13(金) 1:09 -
引用なし
パスワード
   ▼トト さん：
>▼ダメダメ君 さん：
>
>With Range("A1").CurrentRegion
>　　.Value = .Value
>End With
>
>このような感じで良いのでしょうか。

数式の処理と命令実行時の指定セルをクリアすれば使えそうです。
本当に有り難うございました。

ネプチューンさんもどうもでした。エンプティーも試しましたが結果は同じでした。

有り難うございました、もう一度データの整理方法とかをやり直して見ます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3754 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free