Excel VBA創建行

Question

如果這是一個單元格：

    Hello; Goodbye

..並且有數百個單元格，我需要對所有包含“;”的單元格進行“查找並替換” 並在該點斷開單元格，然后將之后的內容移到下面新插入的行：

   Hello;
   Goodbye

Answer 1

尚未針對速度進行優化，但這將為您做到。 如果認為正確，請確保將其標記為正確答案。

Dim r1 As Range, r2 As Range
Dim saItem() As String


For Each r1 In ActiveSheet.Range("A1", Cells(Application.Rows.Count, 2).End(xlUp))
    If InStr(1, r1.Value2, ";") > 0 Then
        saItem = Split(r1.Value2, ";")
        r1 = Trim$(saItem(0)) & ";"
        r1.Offset(1).Insert (xlDown)
        r1.Offset(1) = Trim$(saItem(1))
    End If
Next r1

用於添加整個新行而不是

r1.Offset(1).Insert (xlDown)

這樣做（未經測試，但我很確定它應該可以正常工作）：

r1.Offset(1).EntireRow.Insert (xlDown)