تقسیم یک سطر به دو سطر

[omid.65]

سلام من میخوام سطر نارجی به دو سطر آبی تقسیم بشه آیا با پاور کوئری این کار امکان پذیر هستش یا خیر؟ اگه میشه راه حل رو بفرمائید.

[ZAMEN58]

بنام خدا
سلام
کد زیر را امتحان کنید

Sub Separate()
Dim lngLastRow, lngInstr, lngLen As Long
Dim strFind1, strFind2 As Variant
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For I = lngLastRow To 1 Step -1
lngLen = Len(Range("C" & I))
lngInstr = InStr(Range("C" & I), " ")
strFind1 = Left(Range("C" & I).Value, lngInstr - 1)
strFind2 = Mid(Range("C" & I).Value, lngInstr + 1, lngLen - lngInstr)
Rows(I + 1).EntireRow.Insert
Range(I & ":" & I).Copy Range(I + 1 & ":" & I + 1)
Range("C" & I) = strFind1
Range("C" & I + 1) = strFind2
Next

End Sub

24187