求老司机带路，求高手指点迷经，看看本人初次写的Offset偏移VBA代码错在哪里！谢谢！

心云德乐

第二次练习偏移1至多遍.rar (6.8 KB, 下载次数: 5)

2019-9-15 23:32 上传

点击文件名下载附件

心云德乐

朱荣兴 发表于 2019-9-16 09:27
代码连最基础的东西都还没弄明白，r  定义为单元格区域，但是，r有用于for循环，在循环中也没有给r变量赋值 ...

首先谢谢高手的帮助，第一时间我查了资料，自学的VBA只能东拼西凑点滴知识，加了i的声明变量，r变量赋值给变量i,用i去循环，
还是运行不了，这时就跟喝啦老白干+二锅头，切底懵啦！请高手提壶灌頂，求高手赐教（求VBA代码），为感谢谢 ！
Option Explicit
Sub test()  '定义过程名称，程序开始。
    Dim r As Range, n&, k&, i& '声明过程中需要的变量。
    Set r = Worksheets("练习偏移9月18日").Range("b150").CurrentRegion '把数据区域赋值变量r。
    n = 0         '向上偏移初始值设置为0。
    k = 0           '向右偏移初始值设置为0。
    i = r            '把变量r赋值到变量i。
    For i = 1 To 9   '设置循环变量的初值、终值。
        r.Offset(-1 + n, 6 + k).Value = r.Value    '写入每次循环的区域
        n = n + (-1)   '下一次循环向上偏移值。
        k = k + 6        '下一次循环向右偏移值。
    Next i                '转到下一次循环。
End Sub                     '结束。

zhiwei808

你定义的r是单元格区域，i应该是整数，两个类型都不一样