Excel VBA質問箱 IV

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

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


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

26849 / 76738

←次へ　｜　前へ→


	【55215】Re:特定の計算式が入っているセルのみの選択

テト - 08/4/22(火) 17:45 -


	引用なし

	パスワード

ベタだけど、こんなのどうかな？ ―――――――――――――――――――――――――――――― Dim lastRow As Long Dim lastCol As Long Dim uRange As Range Dim iRow As Long Dim iCol As Long lastRow = 10 lastCol = 10 For iRow = 1 To lastRow 　　For iCol = 1 To lastCol 　　　　If Cells(iRow, iCol).FormulaLocal Like "=VLOOKUP*" Then 　　　　　　If uRange Is Nothing Then 　　　　　　　　Set uRange = Cells(iRow, iCol) 　　　　　　Else 　　　　　　　　Set uRange = Union(uRange, Cells(iRow, iCol)) 　　　　　　End If 　　　　End If 　　Next iCol Next iRow If Not uRange Is Nothing Then 　　uRange.Select End If ――――――――――――――――――――――――――――――