マクロ 空白セルへの文字入力

A列が空白となるまでB列のとこどころに数字が入力されていて空白のセルへ0を入力する。
というマクロがどうしてもできないのですが、ご教示お願いします。

No.1 ベストアンサー 回答者： mm_wanko_mm 回答日時： 2011/07/01 14:09

A1セルから対象データが入っているとして、

簡単に書くとこんな感じでしょうか。

Dim i As Long

　i = 1

Do Until Cells(i, 1).Value = ""

If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = "0"
End If

i = i + 1

Loop

他にもパターンはいくつかありますが、これが一番シンプルだと思いましたので。

この回答へのお礼

本当にありがとうございます。
簡単にできました。
この、Dimとifの使い方全く理解できないおバカで。
こんなに簡単にできるなんて本当に助かりました。

お礼日時：2011/07/01 14:41

No.2 回答者： mu2011 回答日時： 2011/07/01 14:24

ご質問文の内容が曖昧で判りづらいです。

>A列が空白となるまで
　⇒Ａ列の最終入力セルの事か？

>B列のとこどころに数字が入力されていて空白のセルへ0
　⇒Ｂ列の空白セルに０を入力する事か？

>マクロがどうしてもできないのですが
⇒マクロ記録→Ｂ列を選択→ctrl＋Ｇ→セル選択→空白セル→数式バーに０を入力→ctrl＋enter
　標準モジュールのコードを参考にしたらどうでしょうか。

以下のコードはＡ列の最終入力セル範囲をアレンジしています。
Sub その１()
Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "0"
Range("A1").Select
End Sub

この回答へのお礼

私も質問したあとにわかりづらいことに気付きました。
以後気をつけます。
No1の方がうまこと解釈してくれたので助かりました。
丁寧に教えて頂きありがとうございました。

お礼日時：2011/07/01 14:43