- ベストアンサー
特定の範囲内に空白セルがいくつあるかを数えるマクロを作りたいのですが。
B1セルからB500セルまでの間に、 空白セルがいくつあるかを数えるマクロを作りたいのですが…。 自分では作れません。 作ってください!!! お願いします。
- iillyy
- お礼率67% (35/52)
- Visual Basic
- 回答数3
- ありがとう数4
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
みなさんの回答のように関数でできますが、無理やりマクロにすると、こんなものですか。最初はワークシート関数を使っています。2つ目は関数を使わず、数えています。結果を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
その他の回答 (2)
- Masato_a
- ベストアンサー率21% (13/60)
エクセルはあんまり詳しくないですが、 500-Counta(B1:B500)とかは?
お礼
お返事ありがとうございます・・・ でも、実はマクロで作りたかったー。 またいつか、お世話してください。
- trytrytry
- ベストアンサー率37% (13/35)
式ではだめでしょうか? マクロより式を使った方が早いと思いますよ。 式 =COUNTIF(B1:B500,"") 式はだめで、計算用のセルがある場合 Cells(501,2) = "=COUNTIF(B1:B500," & Chr(34) & Chr(34) & ")" 上記は、B501セルに"=COUNTIF(B1:B500,"")"を入力の意味 で、cells(501,2)の値を参照すれば値が取れます。 値が邪魔なら、取得した後に cells(501,2) = "" を実行し、クリアする。 一時的にもセルを使用できない場合はループ(For Next)を使って 地道に勘定するしか思いつかないです。 cnt = 0 for i = 1 to 500 if cells(i,2)="" then cnt = cnt + 1 next もっと効率の良い関数があるのかもしれませんが...
お礼
試してみます… ありがとうございました。
関連するQ&A
- マクロで空白セルに貼り付ける
エクセルで表を作っていますが、マクロを使って、空白セルの左隣の値をコピーし、空白セルに貼り付けをしたいのですが、うまくいきませんでしたので、教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCEL 指定範囲内の空白セルに特定数だけ文字を入力するマクロ教えてください。
マクロ初心者です。 指定範囲内の空白セルに特定数だけ文字を入力するマクロを考えていますが、まったくわかりません。どなたか教えていただけますか? 詳細内容 (1)下記のような空白セルを含む範囲内 A B C D 1 A君 2 3A君 B君 4 C君 (2)別セルでA君に1追加するとA君が表示上追加される A B C D 1 A君 A君←どこでも空白セルならいい 2 3A君 B君 4 C君
- 締切済み
- Microsoft ASP
- 特定のキーワードのセルだけ空白にするマクロを教えてください。
URLが入ったセルが1000行くらいのシートの、ある特定のキーワードだけ(20キーワードくらい)を空白にして、なおかつURLの重複を省くマクロが書きたいのですが、どう書いたらいいでしょうか?
- ベストアンサー
- その他(プログラミング・開発)
- マクロ 空白セルへの文字入力
A列が空白となるまでB列のとこどころに数字が入力されていて空白のセルへ0を入力する。 というマクロがどうしてもできないのですが、ご教示お願いします。
- ベストアンサー
- Visual Basic
- マクロを使って最終行を取得して、範囲内の空白セルに
マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1~最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか? 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。
- ベストアンサー
- Visual Basic
- マクロにて空白のセルを一括して消去でなく削除したい
空白のセルを一括して、空白セルについた色も含めてマクロで全て削除したい。 現在のデータ(仕様)について 1.Sheet2に列ごとにセルに色をつけ、データもあるとします。 2.A列10行・B列6行・C;列18行というように、列によってデータの入った範囲が違います。 3.どの行も途中に空白セルはなく、詰めたデータです。 以上です マクロで一括処理したいと思いますが、このようなことができるコードを教えて頂けませんか。よろしくお願いします。
- ベストアンサー
- Visual Basic
- 空白なら入力、入力されていたら削除のマクロ
A1セルに、B1セルに入力した文字をコピーするマクロを作りたいです。 ただし、常にB1セルに入力した文字をコピーするのではなく、A1セルに何も 入力されていなかった時だけ文字をコピーして、逆に何か入力されていた時はそれを 認識して、A1セルを空白にするマクロです。マクロの記録でうまくいかなかったので、お知恵を貸していただければ幸いです。。 (例) A1セルは空白 B1セルに あいうえお とかかれているとする マクロボタンを押すと、 A1セルにあいうえお と入力される もう一度同じマクロボタンを押すと、A1セルが空白になる(あいうえおが削除される) 更にもう一度同じマクロボタンを押すとA1セルにあいうえお と入力・ これの繰り返しです。
- ベストアンサー
- その他MS Office製品
- 空白セルのメッセージボックスでの知らせるマクロ
はじめまして。下記のExcelについて教えてください。 セルA1からA10の間にデータが入力されているセル、入力されていないセルが混在している場合、データが入力されていないセルをメッセージボックスで知らせるマクロの作成の仕方を教えてください。 空白セルが2つある場合はメッセージボックスは2回表示されます。 ずっと考えていても、分からなくて。。。どうか教えてください。
- ベストアンサー
- オフィス系ソフト
- 選択範囲内の空白セルだけ抜き出すマクロでエラー(OfficeXP)
OfficeXPのExcelを使用しています。 選択した範囲に空白のセルがあったらそこにスペースを入力するというマクロで、下記の一行だけ書きました。 Sub Test() Selection.SpecialCells(xlCellTypeBlanks).Value = " " End Sub 空白のセルが有った場合は問題ないのですが、無いときにエラーになります。 どのようなエラー処理をすればこれを回避出来るのでしょうか?教えて下さい。
- ベストアンサー
- オフィス系ソフト
お礼
2つ目の方が「!!!」な感じ。 ありがとうございました。