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

我的所有数据都放在了第一列中，现在我想每隔26行就分出一列来，放在下一个空白列中，这样的代码报错哦

[解决办法]

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
[解决办法]
楼主可以结贴了……