VBA实现数据截取解决方案

VBA实现数据截取

VB code

Sub getDataFromA()Dim r&Dim c&For c = 2 To 30    For r = 1 To 26        Cells(r, c).Formula = "=R[-(26*(c-1))]C"    NextNextEnd Sub

VB code

Sub getDataFromA()Dim r&Dim c&For c = 2 To 30    For r = 1 To 26        Cells(r, c).Formula = "=R[" & 26 * (c - 1) & "]C[-" & c - 1 & "]"    NextNextEnd Sub
[解决办法]
楼主可以结贴了……