從多個單元格創建一個範圍

Question

我想從多個單元格創建一個範圍。事情是這樣的：

我想有以下4個單元：

• Cells(4, 7)
• Cells(4, 8)
• Cells(8, 7)
• Cells(8, 8)

從文件中提取並然後保存到另一個文件作爲其第一行。

我寫了這樣的事情：

With mybook.Worksheets(5) 
    Set sourceRange = .Range(Cells(4, 7), Cells(4, 8), 
          Cells(8, 7), Cells(8, 8)) 
End With 

我面臨的問題是，只有Cells (4,7)和Cells (4,8)出現在彙總表。

任何人都可以幫助我嗎？

Answer 1

非常基本的方法。

Sub Transfer4Cells() 
    Dim sSht As Worksheet, tSht As Worksheet 
    Dim sRng As Range, tRng As Range 
    Dim Rng As Range 
    Set sSht = ThisWorkbook.Sheets("Sheet1") 'Change as needed. 
    Set tSht = ThisWorkbook.Sheets("Sheet2") 'Change as needed. 
    Set sRng = sSht.Range("G4,H4,G8,H8") 'You can add more cells here. 
    Pos = 1 
    For Each Rng In sRng 
     tSht.Cells(1, Pos).Value = Rng.Value 
     Pos = Pos + 1 
    Next Rng 
End Sub 

雖然不是完美的解決方案，這種方法是非常靈活的，如果你只需要它更是隻提取的4個單元，或者可能。

希望這會有所幫助。