Resize（）をより具体的にしますか？

Question

サイズが変更される範囲があり、サイズ変更をより具体的にする方法があるかどうかを知りたいと思っています。すなわち.Resize(,7)はB-Gの列になるだろうが、私はB、F、Gの列しか望んでいない。

これは私が作業している行です。

a = .Range("b2", .Range("b" & Rows.Count).End(xlUp)).Resize(, 7).Value 

---

Private Sub TextBox_Search_Change() 
    Select Case True 
     Case OptionButton_User_Name.Value 
      Dim a, i As Long, ii As Long, n As Long, temp As String 
      If Len(Me.TextBox_Search.Value) Then 
       temp = UCase(Me.TextBox_Search.Value) 
       With Sheets("ToolData") 
        a = Union(.Range("B:B"), .Range("F:F"), .Range("G:G")).Value 
       End With 
       a = Application.Transpose(a) 
       For i = 1 To UBound(a, 2) 
        If UCase(a(1, i)) Like "*" & temp & "*" Or _ 
        UCase(a(2, i)) Like "*" & temp & "*" Then 
         n = n + 1 
         For ii = 1 To UBound(a, 1) 
          a(ii, n) = a(ii, i) 
         Next 
        End If 
       Next 
       If n > 0 Then 
        ReDim Preserve a(1 To UBound(a, 1), 1 To n) 
        Me.ListBox_History.Column = a 
       End If 
      Else 
       With Sheets("ToolData") 
        Me.ListBox_History.List = .Range("b2", .Range("b" & Rows.Count).End(xlUp)).Resize(, 7).Value 
       End With 
      End If 
      Case Else 
    End Select 
End Sub 

Answer 1

Union開始するには良い場所かもしれません。簡単な例では、このようにあなたのために働くことができます：

Dim r as Range 
With ThisWorkbook.Worksheets("Sheet1") 
    Set r = Union(.Range("B:B"),.Range("F:F"),.Range("G:G")) 
End With