作者：乔山办公网日期：
返回目录：excel表格制作
Set Itm =ListView1 .ListItems.Add()
改成e69da5e887aae79fa5e98193362这样试试
如果这句对了，那么Itm.Text = .Cells(i, 1)这句也没问题了。
实在不行就改成这样：
ListView1.ListItems.Clear
For i = 2 To r2
Set Itm = ListView1.ListItems.Add()
With Sheet2
Itm.Text = .Cells(i, 1)
Itm.SubItems(1) = .Cells(i, 2)
Itm.SubItems(2) = .Cells(i, 3)
Itm.SubItems(3) = Format(.Cells(i, 4), "0.00")
Itm.SubItems(4) = Format(.Cells(i, 5), "0.00")
End With
Next
不管是编写什么程序都要养成一个好的习惯。
你这个是因为类型使用不正确
字符串类型的字符串参与了数值类型的数学运算，就好产生类型不匹配错误。
修改方法如下：
num1 = 0
0
如果你H2这个单元格的原值是文本的话，下一句中Right(s, 10) + 1就会弹出截图所示错误
因为文本参与算术运算会出错
你可以试试将H2写一个数值验证有无问题
类型不匹配是由C As String引起的，因为声明C后没有给他赋值为有效的数值源字串，计算时，数值型的字串会自动转换成响应的数值参与运算，而零长度的字串是不被支持的。
如变量声明百改成Dim m,V,b,d,C，其他不变，则会出现"溢出“错误，因为100*d=0（除数为0）
如变量声明改成Dim m As Integer,V As Integer,b As Integer,d As Integer,C As Integer，其他不变，也会出现”溢度出“错误，因为100*d=0（除数为0）
要排除错误，必须确保每个变量在计算时问能正确进行类型转换，同时，还必须确保数值大小在对应数字类型的大小范围之内，有除法时，除数必须不答等于0