resize（）更具体？

我有一个范围，resize，我想知道是否有一种方法，使resize更具体。 即.Resize(,7)将是BG列但我只想要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