如何通过IF分割数据

Question

我需要知道如何

• 我可以添加很多行，因为每次我在单元格A3中写入时，拆分数据仅进入第5行，但我需要先进入第6行，然后进入第7行，依此类推

• 我可以满足2个条件：

  1. 如果单元格A3的内容编号以“ 0”开头，则转移到编号列“ E栏” E5
  2. 如果该单词转移到产品列“ B列” B5的单元格A3内容（（* .com或* .net）

• 我如何添加更多（//，/，-）这样的分隔符？

Sub SplitText1()

Const SourceRange = "A3" ' <-- Source data range, change to suit
Const DestCell = "a5"       ' <-- First destination cell, change to suit

Dim a As Variant, cell As Range, i As Long

For Each cell In Range(SourceRange)
a = split(cell.Value, "//")

ReDim Preserve a(0 To 6)
If Val(a(3)) = a(3) Then
  a(4) = a(3)
  a(3) = Empty
End If
Range(DestCell).Offset(i).Resize(, 6).Value = a
i = i + 1
Next

End Sub