まず、「うまくいきません」だけでは何もわかりません。
何がどううまくいっていないのか、エラーが発生しているのか、動いてはいるけど期待した結果にならないのか。
それが書いていないということは「そんなの回答する人がコードを動かして確認してよ」って意味になってしまいますよ。
追記
すみません、「Nextで指定された変数の参照が不正です」が出ているという部分を見落としていました。
これが出ているのならFor~Nextループを真っ先に確認しましょう。
初心者さんなのかもしれませんが、技術者であるなら(またはそれを目指しているのなら)行き詰った時も落ち着いてコードを見直す習慣を身につけましょう。
・問題が発生する箇所はどこですか?
・G列の値に+1しているのはどこですか?
・質問には「IFを使用したい」とだけ書かれていますが、IFで判別したい条件は何ですか?
ここらへんを意識してコードに1行ずつコメントをつけてみてください。
やりたいことと実装の矛盾が見えやすくなります。
今回は私のほうでコメントをつけてみました。
やりたいことと矛盾しているのはどこですか?
うまく動かなそうなところはどこですか?
Sub Ara()
Dim a As Integer
Dim b As Integer
'行ループ(3行目~32行目)
For a = 3 To 32
'列ループ(H列~J列)
For b = 8 To 10
If Cells(a, b) <> "" Then
'b列a行が空でない場合
'I列a行のセルにb列a行のセルの値+1をセットする ⇒G列は計算していない
Cells(a, 9) = Cells(a, b) + 1
End If
Next a '行ループここまで?⇒ネスト誤り
Next b '列ループここまで?⇒ネスト誤り
End Sub
がんばってみてください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/04/23 00:23
2018/04/23 00:29
退会済みユーザー
2018/04/23 11:44
2018/04/24 01:29 編集