在线求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

excel2003执行下列程序出错，希望高手指点，小弟第一次写excel宏程序：

Sub 添加小册子单位及转换关系()
    Worksheets("月报出口-2010").Activate     ：可能这列出错！
    With Worksheets("月报出口-2010")
    For i = 2 To 316
        If Left(.cell(i, 4), 2) = "万" Then
           .cell(i, 6) = Mid(.cell(i, 4), 3)
           .cell(i, 7) = .cell(i, 5) / 10000
           .cell(i, 9) = "FLAG"
        Else
           .cell(i, 6) = .cell(i, 4)
           .cell(i, 7) = .cell(i, 5)
        End If
    Next
    End With
End Sub
错误提示：“对像不支持该属性或方法”

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：在线求助 worksheets worksheet excel2003 activate 求助 在线

1# saslovime
    Worksheets("月报出口-2010").Activate
    With Worksheets("月报出口-2010")
    For i = 2 To 316
        If Left(.Cells(i, 4), 2) = "万" Then
           .Cells(i, 6) = Mid(.Cells(i, 4), 3)
           .Cells(i, 7) = .Cells(i, 5) / 10000
           .Cells(i, 9) = "FLAG"
        Else
           .Cells(i, 6) = .Cells(i, 4)
           .Cells(i, 7) = .Cells(i, 5)
        End If
    Next
    End With

应该是cells而不是cell

谢谢，可以运行了，但结果还是没有实现我想要的：
我是想：第四列带“万”字开头的单位，比如“万吨”；第五列是其对应的转换关系，比如对应10000000千克；
               然后在第六列变成“吨”，第七列相应的转换关系变成1000千克，并在第九列加上个标识，但上面的代码并没有实现，请问如何才能实现？ 2# silencelove

请上传案例或具体的行值