Excel VBA＆amp;空白行后TextToColumns停止

Question

我使用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，它们也可以忽略空白行或欢迎任何其他逻辑。