不定时的报错400，请各位老师看下该怎么优化

la119

1. s = Range("E6").Value
   
2.     If dic.Count < s Then '判断原始数据是否还有分配的保单
   
3.     MsgBox "可分配数量小于需要分配保单数"
   
4.     Exit Sub
   
5.     End If
   
6.     MsgBox "已筛选可分配保单（4）"
   
7.    
   
8.     For n = 1 To s
   
9.         r1 = dic.Count
   
10.         i = Application.RandBetween(0, r1 - 1)
    
11.         Range("B" & n + 7).Value = dic.keys()(i)
    
12.         address = dic2(dic.keys()(i))
    
13.         Range("C" & n + 7).Value = Worksheets("原始数据").Range(address).Offset(0, Range("E2").Value)
    
14.         Range("D" & n + 7).Value = Worksheets("原始数据").Range(address).Offset(0, Range("E3").Value)
    
15.         Range("E" & n + 7).Value = Range("G6").Value
    
16.         Range("F" & n + 7).Value = 1
    
17.         dic.Remove dic.keys()(i)
    
18.     Next n

复制代码

dic和dic2为定义的字典
因为有提示框，基本问题是在For循环里有问题。程序执行的时候不是每次都报错"400",老师们帮忙看下哪里可以优化下

liulang0808

报错的时候，楼主看看是否有调试按钮？
有的话，点击一下，看看哪一行代码报错，然后核对下参数之类的

如果没有的话，建议上传完整附近，便于测试