ある範囲内の値がブランクの場合、そこに”０”を入れたいのですが、そういうのをマクロで組むことは可能でしょうか？
No.1
3454
969
35pt
マクロならば、こんな感じ
248
243
Sub Macro()
Dim myRange As Range
For Each myRange In Selection
If myRange = "" Then
myRange.Value = 0
End If
Next
End Sub
No.2
1314393
35pt
こんなのではどうでしょうか。
Sub fillZero()
Dim rg As Range
'--- 選択したセルを対象に処理を実行
For Each rg In Selection
If IsEmpty(rg) Then
rg.Value = 0
End If
Next
End Sub
| 回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
|---|---|---|---|---|---|
| 1 |  kaiton |
260回 | 227回 | 34回 | 2007-06-19 10:11:10 |
1
1
1
コメント（1件)
通常の捜査なら
範囲を選択・[編集]・[ジャンプ]・[セル選択]・[空白セルにチェックでOK]
0 Ctrl+Enter
キー記録なら A1:H20が選択範囲なら
Sub Macro1()
Range("A1:H20").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "0"
End Sub
これを、不要な部分を除くと
Sub Macro2()
Selection.SpecialCells(xlCellTypeBlanks) = "0"
End Sub