範囲のアドレスを見つける

Question

セルの値に基づいていくつかの範囲を選択したいのですが、それぞれ異なる列にある可能性があります。

私の最初の考えは以下のようなものでしたが、それが正しいのかどうかはわかりません。

Sub RangeBetween() 

Dim rng1 As Range, rng2 As Range 
Dim totalRange As Range 
Dim c1, c2 As Integer 

c1 = 1 
    Do Until Name = "A" 
     Name = Cells(1, c1) 
     c1 = c1 + 1 
    Loop 
someA= c1 - 1 

c2 = 1 
    Do Until Name = "B" 
     Name = Cells(1, c2) 
     c2 = c2 + 1 
    Loop 
someB= c2 - 1 

Set rng1 = Range("???") 
Set rng2 = Range("???") 

Set totalRange = Range(rng1.Address & ":" & rng2.Address) 
    totalRange .Select 
    End Sub 

おかげ

Answer 1

それとも、マッチを（使用することができます）

Sub RangeBetween() 


Dim totalRange As Range 
Dim c1 As Long, c2 As Long 


c1 = 0 
c2 = 0 
With Worksheets("Sheet1") 'Change to your worksheet 
    On Error Resume Next 
     c1 = Application.WorksheetFunction.Match("A", .Rows(1), 0) 
     c2 = Application.WorksheetFunction.Match("B", .Rows(1), 0) 
    On Error GoTo 0 

    If c1 > 0 And c2 > 0 Then 
     Set totalRange = .Range(.Cells(1, c1), .Cells(1, c2)) 
     totalRange.Select 
    Else 
     MsgBox "One or both items not found in range" 
    End If 
End With 

End Sub