我已使用下面的代码复制excel范围。
oSheetDestination.Range("A1:A10").Value = oSheetSource.Range("A1:A10").Value
但我想基于单元格编号位置复制范围,使用类似这样的内容:
oSheetDestination.Range("1,1:1,10").Value = oSheetSource.Range("1,1:1,10").Value
我有什么想法可以做到这一点?
谢谢,
答案 0 :(得分:2)
我认为你要找的是Cells
属性。从那里开始,最好的办法就是resize
oSheetDestination.Cells(1,1).resize(1,10).Value = _
oSheetSource.Cells(1,1).resize(1,10).Value
答案 1 :(得分:1)
尝试:
Friend Shared Sub TestRangeCells(myworksheet As Worksheet)
Dim myrange As Range = myworksheet.Range(worksheet.Cells(1, 1), myworksheet.Cells(5, 10))
MessageBox.Show(myrange.Address)
End Sub