从多个单元格创建一个范围

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个单元，或者可能。

希望这会有所帮助。