Excel VBA質問箱 IV

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

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


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

25012 / 76732

←次へ　｜　前へ→


	【57065】Re:B列全てで実行したい

kanabun - 08/7/21(月) 21:06 -


	引用なし

	パスワード

▼tobima さん：
こんにちは
マルチに関する発言は、ぼくの勇み足だったようですね
すみません。

他のサイトでのアドバイスにあるように、
> D 列に数式が有り得ないなら、xlCellTypeFormulas を Union する
> 必要はありません。
データ最終セルまで...ループすればいいです。

かみちゃんさんのコードをお借りすれば

Dim c As Range

For Each c In Range("B1", Cells(Rows.Count, "B").End(xlUp))
　s = Split(c.Value, vbLf)
　'～省略～
Next

といった単純な範囲指定（最初のセル、最後のセル）で
ループすればいいかと思います。

0 hits

▼

【57053】B列全てで実行したい tobima 08/7/20(日) 13:55