No.1ベストアンサー
- 回答日時:
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
他にもパターンはいくつかありますが、これが一番シンプルだと思いましたので。
この回答へのお礼
お礼日時:2011/07/01 14:41
本当にありがとうございます。
簡単にできました。
この、Dimとifの使い方全く理解できないおバカで。
こんなに簡単にできるなんて本当に助かりました。
No.2
- 回答日時:
ご質問文の内容が曖昧で判りづらいです。
>A列が空白となるまで
⇒A列の最終入力セルの事か?
>B列のとこどころに数字が入力されていて空白のセルへ0
⇒B列の空白セルに0を入力する事か?
>マクロがどうしてもできないのですが
⇒マクロ記録→B列を選択→ctrl+G→セル選択→空白セル→数式バーに0を入力→ctrl+enter
標準モジュールのコードを参考にしたらどうでしょうか。
以下のコードはA列の最終入力セル範囲をアレンジしています。
Sub その1()
Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "0"
Range("A1").Select
End Sub
この回答へのお礼
お礼日時:2011/07/01 14:43
私も質問したあとにわかりづらいことに気付きました。
以後気をつけます。
No1の方がうまこと解釈してくれたので助かりました。
丁寧に教えて頂きありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
エクセルVBAでコピーして順...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
エクセルVBAで結合セルの真ん中...
-
VBAでセルをクリックする回...
-
【Excel VBA】指定行以降をクリ...
-
【VBA】指定したセルと同じ値で...
-
同じマクロのプログラムなのに...
-
screenupdatingが機能しなくて...
-
マクロ 空白セルへの文字入力
-
DataGridViewのセル編集完了後...
-
Excel vbaで特定の文字以外が入...
-
指定した条件で行セルを非表示...
-
特定行の色を変えたい(FlexGrid)
-
実行時エラー438 オブジェクト...
-
エクセルマクロでアニメを作る...
-
DataGridViewの各セル幅を自由...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報