Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10433 / 76734

←次へ　｜　前へ→


	【71847】Re:空白あり）Loop処理で行うVBAの作成

UO3 - 12/4/18(水) 11:11 -


	引用なし

	パスワード

▼saya さん：

こんにちは
このような時のは、同じループ処理でも、For/Nextを使うと便利です。
できるだけ、アップされたコードのイメージをくずさないように書いてみました。
もっと、いろいろな書き方もできますし、さらに、C列、E列の値が数値じゃなかった場合の対処
あるいは、事前にD列の領域をクリアしておいた方がいいけど・・・
　等々のところは手を抜いています。

Sub Macro1_1()

　　Dim intDataCnt As Long
　　Dim maxRow As Long

　　maxRow = Range("C" & Rows.Count).End(xlUp).Row　　　'C列データ最終行番号
　　
　　For intDataCnt = 2 To maxRow　　'２行目から最終行までループ処理

　　　　If Range("C" & intDataCnt).Value <> "" Then　　 '空白じゃないときの単価計算を実行
　　
　　　　　　Range("D" & intDataCnt).Formula = Range("E" & intDataCnt).Value / Range("C" & intDataCnt).Value

　　　　End If

　 Next
　
End Sub

4 hits

▼

【71844】空白あり）Loop処理で行うVBAの作成 saya 12/4/18(水) 9:48