ExcelのVBAについて

セルA1にAAAA

セルA10にAAAA



この時のセルは、セルA11かもしれないし
セルA12かもしれないし
セルA11かもしれないしと出現はランダムです。


このとき、AAAA～AAAAまで選択するコードを書きたいのです。
この場合なら、セルA1～セルA10です

どのようなコードを記載するのでしょうか？
お手数ですが、ご教示をお願いします。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2020/01/10 16:23

以下のような物はいかがでしょうか？

Sub Sample()

Const 対象列番号 As Long = 1
Const 対象文字列 As String = "AAAA"
Dim 行番号 As Long
Dim 始位置 As Long

　For 行番号 = 1 To Cells(Rows.Count, 対象列番号).End(xlUp).Row
　　If Cells(行番号, 対象列番号).Value = 対象文字列 Then
　　　If 始位置 = 0 Then
　　　　始位置 = 行番号
　　　Else
　　　　Range(Cells(始位置, 対象列番号), Cells(行番号, 対象列番号)).Select
　　　　Exit Sub
　　　End If
　　End If
　Next

End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2020/01/10 16:37