お世話になります。Excel2013を使用しています。
VBAで動作を繰り返す際に、最終行までではなく
特定の文字~特定の文字が入ってる行まで繰り返すことは可能でしょうか?
行 a列 b列
1 チョコレート
2 ★ ’行数可変 始まり チーズ
3 マドレーヌ
.
99 ショコラ
100 ★★ ’行数可変 終わり ミルクショコラ
.
200 フィナンシェ
例えばa列を基準とした場合、最終行はa200になりますが、実際には2行目[★]~100行目[★★]マークが入ってる行まで行いたいです。
Dim i As Long
For i = [★] to [★★]が入力されている行まで
マクロ実行
アドバイスよろしくお願いします。
No.1ベストアンサー
- 回答日時:
まず、特定の文字がその行以外に出てくるのかが問題になります
始まり、終了の文字列が唯一無二、かつ逆転しないという条件であれば
i = 0
Do
i = i + 1
Loop until cells( i , "a" ).value = "★"
Do
処理
i = i + 1
Loop until cells( i , "a").value = "★★"
とすればよい
ママちゃりさんとすごく迷ったのですが
いち早くお答えいただいたのでHypnomaticさんをベストアンサーにしたいと思います。
ありがとうございました!
No.3
- 回答日時:
No.2
- 回答日時:
こんな変数名でもちゃんと動きますね~。
"★"、"★★"が見つからないとエラーになりますので、必要であればエラー処理を組み込んでください。
Sub sample()
Dim ★ As Long
Dim ★★ As Long
Dim i As Long
★ = WorksheetFunction.Match("★", Range("A:A"), 0)
★★ = WorksheetFunction.Match("★★", Range("A:A"), 0)
For i = ★ To ★★
'マクロ実行
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
-
4
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
VBA 見つからなかった時の処理
Excel(エクセル)
-
7
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
8
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
9
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
10
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
11
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
12
ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします
Visual Basic(VBA)
-
13
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
14
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
15
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
16
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
17
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
18
【ExcelVBA】300万件越えCSVから条件を満たす行だけ抽出するには?
Visual Basic(VBA)
-
19
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
20
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
最近室内にこんな虫が見かけら...
-
doubleclick.netというのが出ま...
-
spi 非言語 教えてください
-
ぶりっこの台詞教えてください!
-
教育実習での挨拶に
-
焼き菓子の賞味期限が2週間過ぎ...
-
仕事を風邪で2日間休んでしまい...
-
今の時期、朝買ったパンを夕方...
-
小論文を書くときの質問です 原...
-
1000カロリーくらいのお菓子を...
-
分離した生クリームの使い道を...
-
ケーキにレモン汁を入れる理由
-
職場でずっとお菓子を食べてる...
-
要冷蔵商品は常温でどれくらい...
-
バニラシードとバニラビーンズ...
-
焼き菓子の「高温多湿を避け常...
-
子供の泊まりについて 高校生の...
-
ベイクドチーズケーキを焼いた後
-
1日中お菓子しか食べてない友達...
-
お菓子作りの基礎を教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
最近室内にこんな虫が見かけら...
-
doubleclick.netというのが出ま...
-
教育実習での挨拶に
-
仕事を風邪で2日間休んでしまい...
-
1000カロリーくらいのお菓子を...
-
パイの分配とはどういう意味で...
-
ケーキは寝かせた方が美味しい?
-
ケーキにレモン汁を入れる理由
-
要冷蔵商品は常温でどれくらい...
-
spi 非言語 教えてください
-
プライバシーの設定について(...
-
ベイクドチーズケーキを焼いた後
-
このチョコ、裏に洋酒入りって...
-
学校で休み時間に小腹が空いた...
-
焼き菓子の賞味期限が2週間過ぎ...
-
賞味期限が3年前のお菓子を食...
-
消費期限が3日前に切れたプリン...
-
1日中お菓子しか食べてない友達...
-
霜柱というお菓子を取り寄せた...
-
職場でずっとお菓子を食べてる...
おすすめ情報