分割字符出错不明原因，求助！！！

ichheibe

我现在是希望把一个格式为XX XX-XX XX的一列数据分成四部分，代码一直跑不过去，求看求分析。第一次写VBA有点头疼，谢谢大家
Sub 按钮2_Click()

Dim S As Variant
Dim str, sstr


For i = 2 To 65536                '全部查询所有行的数据

       str = Sheet3.Cells(i, 1).Value
       sstr = Replace(str, " ", "-")
       S = Split(sstr, "-")
       Sheet3.Cells(i, 2).Value = S(0)
       Sheet3.Cells(i, 5).Value = S(3)
       Sheet3.Cells(i, 3).Value = S(1)
       Sheet3.Cells(i, 4).Value = S(2)



If Sheet3.Cells(i, 2) = "" Then '假如H列i单元格为空

Exit For '则退出i循环

End If
Next i

End Sub

ichheibe

后一步是为了对比和另一个表内的数据，所以都加上了Sheet3.

ichheibe

这个是我做了一半的。。。不知道为什么一直1004，宏的安全项都打开了

外块300

不需要VaIue吧

qqaa266

ichheibe 发表于 2020-2-18 22:21
这个是我做了一半的。。。不知道为什么一直1004，宏的安全项都打开了

1004是因为你附件中的循环变量是 k，，但控制单元格的行变量是 i，是空值，所以想要访问的单元格就是无法确定的东西；
一楼的代码是可以运行的，但是退出循环的代码必须放在循环体的最前面，否则当单元格内容为空时，得到的字典也是空的，你再访问字典肯定出错。

ichheibe

qqaa266 发表于 2020-2-19 08:20
1004是因为你附件中的循环变量是 k，，但控制单元格的行变量是 i，是空值，所以想要访问的单元格就是无法 ...

谢谢！您能帮我看看对比的代码么，之前是我用Excel函数分开数据然后用的对比代码，当时运行没问题，但是改成按钮以后就崩了，不知道是哪里逻辑出错了，能麻烦您给看一下不，谢谢啦—————————————————————————————————————————————————————————————————————————发现了是数据类型的问题，总之谢谢您