توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : پرسش: تقسیم یک سطر به دو سطر
سلام من میخوام سطر نارجی به دو سطر آبی تقسیم بشه آیا با پاور کوئری این کار امکان پذیر هستش یا خیر؟ اگه میشه راه حل رو بفرمائید.
بنام خدا
سلام
کد زیر را امتحان کنید
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
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.