Excel VBA＆TextToColumns在空行之后停止

我正在使用texttocolumns方法拆分列，用逗号分隔它们。 以下是相同的代码。

Dim rownum As Long rownum = Cells(Rows.Count, 3).End(xlUp).Row MsgBox rownum Range("C7:C" & rownum).CurrentRegion.TextToColumns Destination:=Range("C7:C" & rownum), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, other:=False 

现在在这里我有大约60K行，但上面的代码停止分裂40K之后，因为有两个空白行之后，然后再次有数据行。

有反正我们可以使用texttocolumns这里可以忽略空白行或任何其他逻辑是欢迎的。