求老司机带路，初学VBA写了一个偏移的Offset代码（运行不了），求修改代码，谢谢！

心云德乐

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

2019-9-18 20:18 上传

点击文件名下载附件

rardge2015

变量 r 用法有误，for 不能再次使用 r ！

1. Sub test()
   
2.     Dim Rng As Range
   
3.     Dim i As Integer
   
4.    
   
5.     Set Rng = Sheets("Sheet1").Range("B150").CurrentRegion
   
6.    
   
7.     For i = 1 To 9
   
8.         Rng.Offset(-i, i * 6).Value = Rng.Value
   
9.     Next
   
10.    
    
11.     Set Rng = Nothing
    
12. End Sub
    

复制代码

exyantou

楼上正解！

1. Sub 数据区域循环()
   
2. Dim r As Range, k As Integer, sr As String                                          '声明变量，变量rg为数据区域，变量k为计数器
   
3. sr = ThisWorkbook.Sheets("sheet1").[b150].CurrentRegion.Address                     '检测初始区域
   
4.     For k = 1 To 9                                                                  '设置循环次数
   
5.        Set r = ThisWorkbook.Sheets("sheet1").[b150].CurrentRegion.Offset(-k, 6 * k) '设置偏移规则
   
6.        sr = r.Address                                                               '获取偏移后的地址
   
7.        Cells(187, k) = sr                                                           '将每次偏移后的区域输出到单元格
   
8.     Next                                                                            '重复上一步操作，直到设定的次数
   
9. End Sub
   

复制代码

exyantou

exyantou 发表于 2019-9-18 22:25
楼上正解！

声明行的注释，rg应为r手抖了，哈哈

hulai2016

rardge2015 发表于 2019-9-18 22:07
变量 r 用法有误，for 不能再次使用 r ！

你好，我有问题具体请教，发论坛很久无人回复。能加你QQ吗？我QQ2562670757,谢谢

心云德乐

谢谢各位VBA编程高手的帮助，问题完美解结，再次说声谢谢！

心云德乐

补充说明一下，高手们的回贴是9月18日，可我9月25日前登录论坛都没看到回贴，我也不知道是不是我的电脑出啦问题！再次说声谢谢！