如题所述
第1个回答 2014-06-21
出错时，打开本地窗口，看下对应的i值是多少，回到表格中，查找该单元格的内容是否为文本。追问
izuo=instr(1,.cells(i,34),"左")
.cells(i,8)=int(.cells(i,8)*1.6+50)
end with追问
单元格是价格显示！我就是要调整价格
追答如果单元格格式为货币，那么你额代码没问题。
我觉得，问题可能出现在Sheets(1)这里
你把代码改成 worksheets("表名")这样的形式看看？
代码可以简化
with worksheets("aaa")izuo=instr(1,.cells(i,34),"左")
.cells(i,8)=int(.cells(i,8)*1.6+50)
end with追问
能加我Q？我不会宏参数，具体说下怎么改？1061112006
追答手机，加了也一样，那你直接替换用替换，把sheets(1)替换成worksheets("你的实际sheet名")
比如worksheets("sheet1")
还是不行，替换了也没用，出现下标越界了！还是给你好评，然后没分了，也追问不了了，你有看到可以的话继续帮我看下吧
本回答被提问者采纳第2个回答 2014-06-21
循环使用 cells(i,8)了 同学~追问
跑到第一条就错误了，黄色就是错误的，第二条都还没跑呢，我把第二条删了还是一样
