在Excel VBA中执行拆分函数后删除第一行

Function SplitText(ByVal cell As Range, ByVal delimiter As String) As Variant
    SplitText = Split(cell.Value, delimiter)
End Function

Sub ExecuteSplitFunction()
    Dim result As Variant
    result = SplitText(Range("A1"), ",") ' 使用逗号作为分隔符
    Range("B1").Value = Join(result, ",") ' 将拆分后的结果连接起来并显示在B1单元格中
End Sub

Sub DeleteFirstRow()
    Rows(1).Delete
End Sub