VBA Excel如果單元格包含字符，然后將文本拆分為列

Question

我有一段相當簡單的代碼，似乎沒有用。 如果單詞包含字符“，”（但僅包含字符），則需要拆分單元格。 我以為使用IF，然后，Else可以工作，但是每次到達沒有“，”的單元格時，我都會遇到“ Range類的TextToColumns方法失敗”的情況

If InStr(1, (Range("C32").Value), ",") > 0 Then

Range("C32").TextToColumns Destination:=Range("B14"), DataType:=xlDelimited, _
Other:=True, OtherChar:=","

Else

End If

任何幫助，將不勝感激

Answer 1

您的代碼還可以。 我已經嘗試過了，而且效果很好。

Sub Split()
If InStr(1, (Range("C2").Value), ",") > 0 Then
Range("C2").TextToColumns Destination:=Range("B3"), DataType:=xlDelimited, _
Other:=True, OtherChar:=","
Else
MsgBox "kk"
End If
End Sub

如果使用cel而沒有“”，則每次都會得到msgbox“ kk”。 我正在使用MS 2010，也許那是問題所在？

Answer 2

您不需要程序。 只需將帶符號的從數據功能區中的文本轉換為列,用作數據分隔符。 如果該行不包含逗號，則該行將不會拆分。