Excel VBA質問箱 IV

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

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


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

53488 / 76738

←次へ　｜　前へ→


	【28063】Re:セル参照でその下のセルに値を入れたい

かみちゃん - 05/8/27(土) 19:10 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>よく試すと、"A1"セルに対しては、""の時は、"A2"セルに""のままで
>"文字"の時は、"A2"セルに"0"を代入するのですが、
>それ以降のセル（"A11","A21"・・・・,"A291")に対しては、
>""であっても"文字"であっても、("A12","A22"・・・・"A292")に
>"0"を代入してしまいます。

このような感じで、いかがでしょうか？
Sub Macro2()
　For Each c In Range("A1,A11,A21")
　　With c
　　　If .Value <> "" Then
　　　　.Offset(1) = "0"
　　　End If
　　End With
　Next
End Sub

0 hits

▼

【28054】セル参照でその下のセルに値を入れたい りょうた 05/8/27(土) 16:58