- ベストアンサー
特定の範囲内に空白セルがいくつあるかを数えるマクロを作りたいのですが。
nishi6の回答
みなさんの回答のように関数でできますが、無理やりマクロにすると、こんなものですか。最初はワークシート関数を使っています。２つ目は関数を使わず、数えています。結果をC1、C2に書き出します。 参考にして下さい。 Sub KuuhakuCount() Range("C1") = WorksheetFunction.CountBlank(Range("B1:B500")) End Sub Sub KuuhakuCount2() Dim rg As Range 'セル Dim ct As Long 'カウンタ For Each rg In Range("B1:B500") ct = ct + Abs(rg = "") '空白なら件数をカウント Next Range("C2") = ct End Sub
関連するQ&A
- マクロで空白セルに貼り付ける
エクセルで表を作っていますが、マクロを使って、空白セルの左隣の値をコピーし、空白セルに貼り付けをしたいのですが、うまくいきませんでしたので、教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCEL 指定範囲内の空白セルに特定数だけ文字を入力するマクロ教えてください。
マクロ初心者です。 指定範囲内の空白セルに特定数だけ文字を入力するマクロを考えていますが、まったくわかりません。どなたか教えていただけますか？ 詳細内容 (1)下記のような空白セルを含む範囲内 Ａ Ｂ Ｃ Ｄ 1 Ａ君 2 3Ａ君 Ｂ君 4 Ｃ君 (2)別セルでＡ君に１追加するとＡ君が表示上追加される Ａ Ｂ Ｃ Ｄ 1 Ａ君 Ａ君←どこでも空白セルならいい 2 3Ａ君 Ｂ君 4 Ｃ君
- 締切済み
- Microsoft ASP
- 特定のキーワードのセルだけ空白にするマクロを教えてください。
URLが入ったセルが1000行くらいのシートの、ある特定のキーワードだけ（20キーワードくらい）を空白にして、なおかつURLの重複を省くマクロが書きたいのですが、どう書いたらいいでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- マクロ 空白セルへの文字入力
A列が空白となるまでB列のとこどころに数字が入力されていて空白のセルへ0を入力する。 というマクロがどうしてもできないのですが、ご教示お願いします。
- ベストアンサー
- Visual Basic
- マクロを使って最終行を取得して、範囲内の空白セルに
マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1～最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか？ 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。
- ベストアンサー
- Visual Basic
- マクロにて空白のセルを一括して消去でなく削除したい
空白のセルを一括して、空白セルについた色も含めてマクロで全て削除したい。 現在のデータ(仕様)について １．Sheet2に列ごとにセルに色をつけ、データもあるとします。 ２．A列１０行・B列６行・C;列１８行というように、列によってデータの入った範囲が違います。 ３．どの行も途中に空白セルはなく、詰めたデータです。 以上です マクロで一括処理したいと思いますが、このようなことができるコードを教えて頂けませんか。よろしくお願いします。
- ベストアンサー
- Visual Basic
- 空白なら入力、入力されていたら削除のマクロ
A1セルに、B１セルに入力した文字をコピーするマクロを作りたいです。 ただし、常にB1セルに入力した文字をコピーするのではなく、A１セルに何も 入力されていなかった時だけ文字をコピーして、逆に何か入力されていた時はそれを 認識して、A１セルを空白にするマクロです。マクロの記録でうまくいかなかったので、お知恵を貸していただければ幸いです。。 （例） A１セルは空白 B１セルに あいうえお とかかれているとする マクロボタンを押すと、 A１セルにあいうえお と入力される もう一度同じマクロボタンを押すと、A1セルが空白になる（あいうえおが削除される） 更にもう一度同じマクロボタンを押すとA１セルにあいうえお と入力・ これの繰り返しです。
- ベストアンサー
- その他MS Office製品
- 空白セルのメッセージボックスでの知らせるマクロ
はじめまして。下記のExcelについて教えてください。 セルA1からA10の間にデータが入力されているセル、入力されていないセルが混在している場合、データが入力されていないセルをメッセージボックスで知らせるマクロの作成の仕方を教えてください。 空白セルが2つある場合はメッセージボックスは2回表示されます。 ずっと考えていても、分からなくて。。。どうか教えてください。
- ベストアンサー
- オフィス系ソフト
- 選択範囲内の空白セルだけ抜き出すマクロでエラー（OfficeXP)
OfficeXPのExcelを使用しています。 選択した範囲に空白のセルがあったらそこにスペースを入力するというマクロで、下記の一行だけ書きました。 Sub Test() Selection.SpecialCells(xlCellTypeBlanks).Value = " " End Sub 空白のセルが有った場合は問題ないのですが、無いときにエラーになります。 どのようなエラー処理をすればこれを回避出来るのでしょうか？教えて下さい。
- ベストアンサー
- オフィス系ソフト
お礼
２つ目の方が「！！！」な感じ。 ありがとうございました。