如何指定一個單元格範圍

Question

我試圖從多個工作表中將多個工作表中的數據解析到單個摘要工作表或工作簿中。到目前爲止，我已經能夠從指定單元收集數據，但是我想包括一系列單元格（例如「A2：B20」）。我如何在循環過程中指定這個？

Option Explicit 
Sub GetMyData() 
Dim myDir As String, fn As String, sn As String, sn2 As String, n As Long, NR As Long 

'***** Change Folder Path ***** 
myDir = "C:\attach" 

'***** Change Sheetname(s) ***** 
sn = "Title" 
sn2 = "Monday" 


fn = Dir(myDir & "\*.xlsx") 
Do While fn <> "" 
If fn <> ThisWorkbook.Name Then 
With ThisWorkbook.Sheets("Sheet10") 
    NR = .Cells(Rows.count, 1).End(xlUp).Row + 1 

    'Pick cells from worksheet "Title" 
    With .Range("A" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!B4" 
    .Value = .Value 
    End With 
    With .Range("B" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!B5" 
    .Value = .Value 
    End With 
    With .Range("C" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!B6" 
    .Value = .Value 
    End With 
    With .Range("D" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!B7" 
    .Value = .Value 
    End With 
    With .Range("E" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!A1" 
    .Value = .Value 
    End With 
    With .Range("F" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!A2" 
    .Value = .Value 
    End With 
    'pick cells from worksheet "Monday" 

    With .Range("G" & NR) 
    .Formula = "='" & myDir & "\[" & fn & "]" & sn2 & Range("A1:C57") 

    End With 
End With 
End If 
fn = Dir 
Loop 
ThisWorkbook.Sheets("Sheet10").Columns.AutoFit 

End Sub 

Answer 1

您可以執行

Col_1 = "A" 
Col_2 = "B" 
i = 2 
j = 20 
Range(Col_1 & i,Col_2 & j) 

或

Col_1 = "A" 
i = 2 
j = 20 
Range(Col_1 & i).Resize(j-i+1,2) 

希望這有助於

Answer 2

有幾個方法可以做到這一點，假如你希望一個連續範圍：

1. 將確切的字符串傳遞給Range函數。例如Range("A3:C10")
2. 將「第一個」單元格作爲第一個參數，將「最後一個單元格」作爲第二個參數。例如Range("A3", "C10")