سلام برای ششصد تا ستون بهتره از فرمول استفاده نکنیم کار سختی میشه!
کد زیر رو اجرا کنید!
فیلم نحوه استفاده از کد رو هم قرار دادم!
فقط در فایل اصلی انجام ندید که اگه مشکلی پیش اومد نمیتونید 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
لینک آپارات
علاقه مندی ها (Bookmarks)