مشکل مطالب چپ به راست و کپی در شیت راست به چپ

[alibobo]

سلام دوستان عزیز
من یک خروجی اکسل دارم که شیت از چپ به راست به من داده میشه و باید ادیت های لازم روی اون انجام بشه و به صورت فارسی در بیاد و من مجبورم این شیت را در شیت بعدی به صورت راست به چپ به صورت فارسی کپی کنم ولی وقتی در شیت بعدی که از راست به چپ کپی می کنم ستون ها جابه جا میشه.یعنی در واقعه شیت خروجی را می خوام در شیت بعدی از اول راست به چپ به صورت فارسی کپی کنم که ردیف اول باشه؟
ممنونم میشم کمک کنید

[rahi_feri]

سلام
اگه همین دو تا ستونه! دستی انجام بدید!
در غیر اینصورت فایل کامل تر یا اصلی رو ارسال کنید!
با فرمول یا کد یا افزونه های ارایه شده قابل حله!

[alibobo]

دوست عزیز حدود 600 ردیف ممنون میشک اگر برای همین فرمولی بفرمایی که بتونم انجامش بدم؟
با سپاس فراوان

[rahi_feri]

سلام برای ششصد تا ستون بهتره از فرمول استفاده نکنیم کار سختی میشه!
کد زیر رو اجرا کنید!
فیلم نحوه استفاده از کد رو هم قرار دادم!
فقط در فایل اصلی انجام ندید که اگه مشکلی پیش اومد نمیتونید Undo کنید!
قبل اجرا سلول ها رو از حالت Merge خارج کنید!و ستون های خالی رو حذف کنید!
در فایل پیوست روش با فرمول هم اورده شده!

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

لینک آپارات