VBA实现数据截取解决方案

2012-01-30

VBA实现数据截取VB codeSub getDataFromA()Dim r&Dim c&For c 2 To 30For r 1 To 26Cells(r, c).Formu

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