[已解决]我想解决循环复制的问题 不知道错在哪了 请指正

xptool

Sub ttt()
For a = 1 To 2
    For b = 1 To 3
        For c = 1 To 4
            Sheet1.Cells(5, "c") = a
            Sheet1.Cells(5, "d") = b
            Sheet1.Cells(5, "e") = c
            r = 17 * (a - 1) + 1
              s = b + c + 20
               Cells(r, s).Offset(1, 0) = Cells(9, "D")
         Next c
    Next b
Next a
End Sub

我想解决循环复制的问题  不知道错在哪了 请指正   C5从1循环到2  D5从1循环到3   E5从1循环到4  
C5 为1时 就把 D7 复制到 从V2开始的行


C5 为2时 就把 D7 复制到 从V19开始的行

D5=1 E5=1  把 D7 复制到 V2
D5=1 E5=2  把 D7 复制到 W2
D5=1 E5=3  把 D7 复制到 X2
D5=1 E5=4  把 D7 复制到 Y2

D5=2 E5=1 把 D7 复制到 Z2
D5=2 E5=2  把 D7 复制到 AA2
D5=2 E5=3  把 D7 复制到 AB2
D5=2 E5=4  把 D7 复制到 AC2
D5=2 E5=1 把 D7 复制到 AD2
D5=2 E5=2  把 D7 复制到 AE2
D5=2 E5=3  把 D7 复制到 AF2
D5=2 E5=4  把 D7 复制到 AG2


C5 为2时 就把 D7 复制到 从V19开始的行 D5 E5继续
正确答案 复制的行应该有12个 我的有错误  请朋友指正一下

xunhuanfuzhi.zip (13.72 KB, 下载次数: 3)

2013-6-20 14:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

w2001pf

2013-6-20 14:42

你试试看？是不是你要的。Sub ttt()
For a = 1 To 2
    For b = 1 To 3
        For c = 1 To 4
            Sheet1.Cells(5, "c") = a
            Sheet1.Cells(5, "d") = b
            Sheet1.Cells(5, "e") = c
            
            r = 17 * (a - 1) + 1
            n = n + 1
            s = n + 21
          Cells(r, s).Offset(1, 0) = Cells(9, "D")
         Next c
    Next b
        n = 0
Next a
End Sub

跳转到最佳答案楼层

w2001pf

你试试看？是不是你要的。Sub ttt()
For a = 1 To 2
    For b = 1 To 3
        For c = 1 To 4
            Sheet1.Cells(5, "c") = a
            Sheet1.Cells(5, "d") = b
            Sheet1.Cells(5, "e") = c
            
            r = 17 * (a - 1) + 1
            n = n + 1
            s = n + 21
          Cells(r, s).Offset(1, 0) = Cells(9, "D")
         Next c
    Next b
        n = 0
Next a
End Sub

xptool

最佳答案答案

w2001pf

xptool 发表于 2013-6-20 14:57
最佳答案答案

你要评定为最佳啊？不是回复为最佳的。