كيفية تبديل الخلايا من اليسار إلى اليمين في إكسيل؟
عندما نكتب القيم في ورقة Excel ، فعادة ما نكتبها من اليسار إلى اليمين ، ولكن في بعض الحالات ، قد ترغب في تبديل الخلايا من اليسار إلى اليمين إلى اليمين إلى اليسار كما هو موضح أدناه لقطة الشاشة. لا توجد ميزة مضمنة في Excel يمكن أن تساعدك على حلها بسرعة ، ولكن في هذه المقالة ، أقدم بعض الحيل لتقديم خدمة لك.
تبديل الخلايا من اليسار إلى اليمين باستخدام VBA
تبديل الخلايا من اليسار إلى اليمين أو من الأعلى إلى الأسفل باستخدام كوتولس ل إكسيل
تبديل الخلايا من اليسار إلى اليمين باستخدام VBA
لتبديل الخلايا من اليسار إلى اليمين بسرعة بدون صيغ ، يمكنك استخدام كود VBA.
1. صحافة ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، الصق الكود أدناه في البرنامج النصي الفارغ.
فبا: تبديل اليسار إلى اليمين
Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
Dim strTemp As String
On Error Resume Next
strTemp = Application.InputBox _
(Prompt:="Enter the column you want to transpose with comma separate", _
Title:="Kutools For Excel", Type:=2)
For i = Len(strTemp) To 1 Step -1
NewOrder = NewOrder + Mid(strTemp, i, 1)
Next i
LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
Letters = Split(NewOrder, ",")
ReDim NewLetters(1 To UBound(Letters) + 1)
Application.ScreenUpdating = False
For xLng = 0 To UBound(Letters)
NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
Next
Application.ScreenUpdating = True
Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub
3. صحافة F5 مفتاح لتشغيل الكود ، يظهر لك مربع حوار لإدخال أحرف العمود التي تريد تبديلها. يرجى فصل أحرف العمود هذه بفاصلة كما هو موضح أدناه في لقطة الشاشة.
4. انقر OK. الآن تم تحويل التحديد من اليسار إلى اليمين.
تبديل الخلايا من اليسار إلى اليمين أو من الأعلى إلى الأسفل باستخدام كوتولس ل إكسيل
إذا كان لديك Kutools for Excel مثبتًا ، فيمكنك نقل الخلايا بسرعة من اليسار إلى اليمين أو من الأعلى إلى الأسفل باستخدام أدوات Flip Vertical Range و Flip Horizontal Range حسب حاجتك.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)
حدد الخلايا التي تريد تبديلها من اليسار إلى اليمين أو من أعلى إلى أسفل ، انقر فوق كوتولس > الفترة (من ... إلى) > انعكاس النطاق الأفقي/انعكاس النطاق الرأسي > الكل or فقط قلب القيم. انظر لقطات الشاشة:
انعكاس النطاق الأفقي> الكل: |
انعكاس أفقي> قلب القيم فقط: |
انعكاس النطاق الرأسي> الكل: |
انعكاس النطاق الرأسي> قلب القيم فقط:
|
بيانات الوجه
قد ترغب في:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!