[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『Rangeの使い方』(玉子)
これサイトで見つけました
まだ始めたばかりです
A1:A10000でなくとするとCells(Rows.Count, 1).End(xlUp)としたら
何にもおきなくなりました
どこがおかしいか教えてくれないですか
Sub Test()
Dim c As Range Dim i As Range
Set i = Cells(Rows.Count, 1).End(xlUp) For Each c In Range("A1",i) c = 100 Next c
< 使用 Excel:Office365、使用 OS:Windows10 >
そのうえで、「i」には何が入っていますか?
(もこな2) 2020/05/06(水) 13:11
>Cells(Rows.Count, 1).End(xlUp)
これ意味解って使ってます? A列のどこかに何か入れれば動きますよ。 (BJ) 2020/05/06(水) 13:20
「Sub 〇〇 〜 End Sub」が一つのプロシージャと呼ばれるかたまりなので、1行くらい横着せずに書いた(提示した)方がお互い誤解がなくてよいとおもいます。
また、提示されたコードが正しかったとして、ループ処理は要らないと思います。
Sub 実験01() Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value = 100 End Sub
> A列のどこかに何か入れれば動きますよ。
何も入ってない場合でも、A1セルが返るから動きますね。
(もこな2) 2020/05/06(水) 13:25
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.