엑셀 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)