Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12713 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9024】データを削除させるマクロ hana 03/11/14(金) 17:42 質問
【9026】Re:データを削除させるマクロ INA 03/11/14(金) 17:49 回答
【9032】Re:データを削除させるマクロ 通りすがりのもの 03/11/14(金) 19:22 発言
【9033】Re:データを削除させるマクロ INA 03/11/14(金) 20:02 回答
【9065】Re:データを削除させるマクロ hana 03/11/17(月) 9:16 お礼
【9024】データを削除させるマクロ
質問  hana  - 03/11/14(金) 17:42 -
引用なし
パスワード
   はじめまして。
マクロの記憶を使おうと思ったのですが、
どういう風に記憶させればよいか分からず、
お伺いしたいと思います。

A列には200行目まで、必ず、数値がはいっています。
B列は、毎回、データの量（行数）が変わります。
そこで、B列の最後の行より後ろに入っている
A列の値を削除したいのですが、
マクロでどのように書けばよいでしょうか？
よろしくお願いします。
【9026】Re:データを削除させるマクロ
回答  INA  - 03/11/14(金) 17:49 -
引用なし
パスワード
   >A列には200行目まで、必ず、数値がはいっています。
>B列は、毎回、データの量（行数）が変わります。
>そこで、B列の最後の行より後ろに入っている
>A列の値を削除したい

sub sample()
dim LastRow as long

　 'Ｂ列のデータの最下行を求める
　 LastRow = range("B65536").End(xlup).row
　
　 'クリア
　 range("A" & Lastrow & ":A65536").ClearContents
End sub

これで分かりますか？　
【9032】Re:データを削除させるマクロ
発言  通りすがりのもの  - 03/11/14(金) 19:22 -
引用なし
パスワード
   ▼INA さん：
>>A列には200行目まで、必ず、数値がはいっています。
>>B列は、毎回、データの量（行数）が変わります。
>>そこで、B列の最後の行より後ろに入っている
>>A列の値を削除したい
>
>sub sample()
>dim LastRow as long
>
>　 'Ｂ列のデータの最下行を求める
>　 LastRow = range("B65536").End(xlup).row
>　
>　 'クリア
>　 range("A" & Lastrow & ":A65536").ClearContents
>End sub
>
>これで分かりますか？　

これだと、B列の最下行についてもA列のデータが消えてしまうのではないでしょうか？
B列の最下行の次の行からA列の最終行までと言う意味ではないでしょうか？

range("A" & Lastrow+1 & ":A65536").ClearContents
【9033】Re:データを削除させるマクロ
回答  INA  - 03/11/14(金) 20:02 -
引用なし
パスワード
   >これだと、B列の最下行についてもA列のデータが消えてしまうのでは
>ないでしょうか？
>B列の最下行の次の行からA列の最終行までと言う意味ではないでしょうか？
>
>range("A" & Lastrow+1 & ":A65536").ClearContents

そのとおりです。
通りすがりのもの さん　ご指摘どうも有り難うございました。
【9065】Re:データを削除させるマクロ
お礼  hana  - 03/11/17(月) 9:16 -
引用なし
パスワード
   INAさん。通りすがりのもの さん。
ありがとうございます。
無事解決しました。
返事が遅くなってしまい大変申し訳ありません。
とても助かりました！！
本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12713 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free