التنسيق الشرطي (5)
القوائم والنطاقات (5)
وحدات الماكرو (إجراءات VBA) (63)
متنوعة (39)
الأخطاء ومواطن الخلل في Excel (4)

كيفية لصق الخلايا المنسوخة في الخلايا المرئية/المصفاة فقط

بشكل عام، أعتقد أن معنى المقال واضح بالفعل من العنوان. سأقوم بتوسيعها قليلاً.

ليس سراً أن برنامج Excel يسمح لك بتحديد الصفوف المرئية فقط (على سبيل المثال، إذا تم إخفاء بعضها أو تم تطبيق عامل التصفية).

لذا، إذا قمت بنسخ الخلايا المرئية فقط بهذه الطريقة، فسيتم نسخها كما هو متوقع. ولكن عندما تحاول لصق شيء منسوخ في نطاق تمت تصفيته (أو يحتوي على صفوف مخفية)، فإن نتيجة اللصق لن تكون بالضبط ما توقعته. سيتم إدراج البيانات حتى في الصفوف المخفية.

انسخ نطاقًا واحدًا من الخلايا والصقه في الخلايا المرئية فقط
لإدراج البيانات في الخلايا المرئية فقط، يمكنك استخدام الماكرو التالي:

الخيار الصريح rCopyRange كنطاق "باستخدام هذا الماكرو نقوم بنسخ البيانات Sub My_Copy() إذا Selection.Count > 1 ثم قم بتعيين rCopyRange = Selection.SpecialCells(xlVisible) آخر: Set rCopyRange = ActiveCell End If End Sub "باستخدام هذا الماكرو نقوم بإدراج البيانات بدءًا من الخلية المحددة Sub My_Paste() إذا كان rCopyRange لا شيء، فاخرج من Sub إذا كان rCopyRange.Areas.Count > 1 ثم MsgBox "يجب ألا يحتوي النطاق الملصق على أكثر من منطقة واحدة!"،فبكريتيكال، "النطاق غير صالح": الخروج من Sub Dim rCell كنطاق، li As Long، le As Long، lCount As Long، iCol كعدد صحيح، iCalculation كعدد صحيح Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 لـ iCol = 1 إلى rCopyRange .Columns.Count li = 0: lCount = 0: le = iCol - 1 لكل rCell في rCopyRange.Columns(iCol).تفعل الخلايا إذا ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset (li, le).EntireRow.Hidden = False ثم rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 حلقة أثناء lCount >= rCell.Row - rCopyRange.Cells(1 ).الصف التالي rCell التالي iCol Application.ScreenUpdating = صحيح: Application.Calculation = iCalculation End Sub

الخيار الصريح Dim rCopyRange As Range "استخدم هذا الماكرو لنسخ البيانات Sub My_Copy() If Selection.Count > 1 ثم Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub "استخدم هذا الماكرو للصق البيانات التي تبدأ من الخلايا المحددة Sub My_Paste() إذا كان rCopyRange لا شيء، ثم قم بالخروج من Sub إذا كان rCopyRange.Areas.Count > 1 ثم MsgBox "يجب ألا يحتوي النطاق الملصق على أكثر من منطقة واحدة!"، vbCritical، "نطاق غير صالح": خروج Sub Dim rCell كنطاق، li As Long، le As Long، lCount As Long، iCol كعدد صحيح، iCalculation كعدد صحيح Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 لـ iCol = 1 إلى rCopyRange.Columns .Count li = 0: lCount = 0: le = iCol - 1 لكل rCell في rCopyRange.Columns(iCol).تفعل الخلايا إذا ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li , le).EntireRow.Hidden = False ثم rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount >= rCell.Row - rCopyRange.Cells(1). الصف التالي rCell التالي iCol Application.ScreenUpdating = صحيح: Application.Calculation = iCalculation End Sub

لإكمال الصورة، من الأفضل تعيين وحدات الماكرو هذه لمفاتيح التشغيل السريع (في الرموز أدناه، يتم ذلك تلقائيًا عند فتح كتاب باستخدام الرمز). للقيام بذلك، تحتاج فقط إلى نسخ الرموز أدناه في الوحدة النمطية هذا الكتاب (هذا المصنف) :

خيار صريح "إلغاء تعيين مفاتيح التشغيل السريع قبل إغلاق المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "تعيين مفاتيح التشغيل السريع عند فتح المصنف تطبيق Private Sub Workbook_Open() .OnKey "^q"، "My_Copy": Application.OnKey "^w"، "My_Paste" End Sub

يمكنك الآن نسخ النطاق المطلوب بالضغط على المفاتيح كنترول + س ، وأدخله في المرشح - كنترول + ث .

تنزيل المثال

(46.5 كيلو بايت، 9,622 تنزيل)

انسخ الخلايا المرئية فقط والصقها في الخلايا المرئية فقط
وبناءً على طلب زوار الموقع، قررت تحسين هذا الإجراء. أصبح من الممكن الآن نسخ أي نطاقات: مع الصفوف المخفية والأعمدة المخفية ولصق الخلايا المنسوخة أيضًا في أي نطاقات: مع الصفوف المخفية والأعمدة المخفية. إنه يعمل بنفس الطريقة السابقة تمامًا: عن طريق الضغط على المفاتيح كنترول + س انسخ النطاق المطلوب (مع صفوف وأعمدة مخفية/مصفاة أو غير مخفية)، والصقه باستخدام اختصار لوحة المفاتيح كنترول + ث . يتم إجراء الإدراج أيضًا في صفوف وأعمدة مخفية/مصفاة أو بدون تلك المخفية.
إذا كان النطاق المنسوخ يحتوي على صيغ، لتجنب إزاحة المرجع، يمكنك نسخ قيم الخلية فقط - أي. عند إدراج القيم، لن يتم إدراج الصيغ، ولكن نتيجة حسابها. أو إذا كان من الضروري الحفاظ على تنسيقات الخلايا التي يتم الإدراج فيها، فسيتم نسخ ولصق قيم الخلية فقط. للقيام بذلك، تحتاج إلى استبدال السطر في الكود (في الملف أدناه):

rCell.Copy rResCell.Offset(lr, lc)

rCell.Copy rResCell.Offset(lr, lc)

إلى هذا:

rResCell.Offset(lr, lc) = rCell.Value

rResCell.Offset(lr, lc) = rCell.Value

كلا هذين الخطين موجودان في الملف أدناه، ما عليك سوى ترك الخط الأكثر ملاءمة لمهامك.

تنزيل المثال:

(54.5 كيلو بايت، 7,928 تنزيل)

انظر أيضا:
[]

هل ساعد المقال؟ شارك الرابط مع أصدقائك! دروس الفيديو

("الشريط السفلي":("textstyle": "static"، "textpositionstatic": "bottom"، "textautohide": true، "textpositionmarginstatic":0، "textpositiondynamic": "bottomleft"، "textpositionmarginleft": 24،" textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide",texteffecteasing":"easeOutCubic",texteffectduration":600,"text Effectslidedirection":left",text Effectslidedistance" :30،texteffectdelay":500،textefffectseparate":false،texteffect1":slide"،text Effectslidedirection1":right"،text Effectslidedistance1":120،texteffecteasing1":easeOutCubic"،texteffectduration1":600 "texteffectdelay1":1000"،texteffect2":slide"،text Effectslidedirection2":right"،text Effectslidedistance2":120،texteffecteasing2":easeOutCubic"،texteffectduration2":600،texteffectdelay2":1500،" textcss":"display:block; text-align:left;",textbgcss":"display:absolute:0px; "،"titlecss": "display:block؛ الموقف:نسبي؛ الخط: غامق 14px \"Lucida Sans Unicode\"،\"Lucida Grande\"،sans-serif،Arial؛ اللون:#fff;"،"descriptioncss": "display:block; الموقف:نسبي؛ الخط: 12px \"Lucida Sans Unicode\"،\"Lucida Grande\"،sans-serif،Arial؛ اللون: #ففف؛ الهامش العلوي:8px;,"buttoncss":display:block; الموقف:نسبي؛ هامش أعلى:8px;"،"،texteffect Response":true،"texteffect Responsesize":640، "titlecss Response": "font-size: 12px؛"، "descriptioncss Response": "display:none !important؛"، "buttoncss Response": ""،"،addgooglefonts":false،"googlefonts":"،"،textleftrightpercentforstatic":40))

إذا كانت بعض الخلايا أو الصفوف أو الأعمدة في ورقة العمل غير مرئية، فيمكنك نسخ كافة الخلايا (أو الخلايا المرئية فقط). افتراضيًا، لا يقوم Excel بنسخ الخلايا المرئية فحسب، بل ينسخ أيضًا الخلايا المخفية أو التي تمت تصفيتها. إذا كنت تريد نسخ الخلايا المرئية فقط، فاتبع الخطوات أدناه. على سبيل المثال، يمكنك نسخ البيانات التلخيصية فقط من ورقة عمل منظمة.

اتبع الخطوات أدناه.

ملحوظة:عند النسخ، يتم إدراج القيم بالتسلسل في الصفوف والأعمدة. إذا كانت منطقة اللصق تحتوي على صفوف أو أعمدة مخفية، فقد تحتاج إلى إظهارها لرؤية كافة البيانات التي نسختها.

عند نسخ الخلايا المرئية ولصقها في نطاق بيانات يحتوي على خلايا مخفية أو تم تطبيق عامل تصفية عليه، قد تلاحظ أنه تم لصق الخلايا المخفية مع الخلايا المرئية. لسوء الحظ، لا يمكنك تغيير هذا الإعداد عند نسخ نطاق من الخلايا ولصقه في Excel للويب لأن لصق الخلايا المرئية فقط غير متوفر.

ومع ذلك، إذا قمت بتنسيق بياناتك كجدول وقمت بتطبيق عامل تصفية، فيمكنك نسخ الخلايا المرئية ولصقها فقط.

إذا كنت لا تريد تنسيق بياناتك كجدول وكان برنامج Excel لسطح المكتب مثبتًا لديك، فيمكنك فتح المصنف في Excel لنسخ الخلايا المرئية ولصقها. للقيام بذلك، انقر فوق الزر فتح في إكسلواتبع الخطوات الواردة في نسخ الخلايا المرئية فقط ولصقها.

مزيد من المعلومات

يمكنك دائمًا طرح سؤال على أحد متخصصي مجتمع Excel Tech، وطلب المساعدة في مجتمع الإجابات، وكذلك تقديم الاقتراحات ميزة جديدةأو تحسين على الموقع

تم اختيار البيانات في Excel باستخدام مرشح أو فرز. الآن يجب طباعتها أو نقلها إلى موقع آخر. نسخ إلى إكسلتم تكوينه بحيث يتم نسخ الخلايا المخفية أيضًا.
دعونا نفكر في طريقتين، ل كيفية نسخ الصفوف التي تمت تصفيتها في إكسيل.
الطريقة الأولى.
هناك وظيفة رائعة في Excel - لصق وظيفة خاصة في Excel.
لذلك لدينا طاولة.
كيفية تركيب الفلتر راجع المقال "تصفية في Excel ".
نحن نستخدم مرشحًا لإزالة جميع إيفانوف من القائمة. اتضح مثل هذا.
حدد الجدول وانقر على "نسخ" في قائمة السياق. انقر بزر الماوس الأيسر على الخلية A9 وحدد "القيم" في قائمة السياق.
انقر فوق "موافق". فويلا. لم يتم نسخ قيمة الصفوف المرئية فحسب، بل تم أيضًا نسخ تنسيق الخلايا.
هناك فارق بسيط- أدخل البيانات التي تمت تصفيتها ليس في الصفوف التي يوجد بها عامل التصفية. على سبيل المثال، في مثالنا - ليس في الأسطر 1-7، ولكن أدناه أو على ورقة أخرى، وما إلى ذلك. إذا قمنا باللصق في الصفوف التي يوجد بها الفلتر، فسيتم أيضًا إدراج البيانات التي تمت تصفيتها في الصفوف المخفية بواسطة الفلتر. بشكل عام، سوف يتحول إلى فوضى. الطريقة الثانية.
الجدول هو نفسه. حدد الجدول الذي يحتوي على البيانات التي تمت تصفيتها. في علامة التبويب "الصفحة الرئيسية"، انقر فوق قسم "التحرير". البحث عن الوظائف وتسليط الضوء عليها في Excel. ثم انقر فوق الزر "اذهب". في مربع الحوار الذي يظهر، انقر فوق الزر "تحديد...". في نافذة "تحديد مجموعة من الخلايا"، حدد المربع بجوار "الخلايا المرئية فقط". انقر فوق "موافق". الآن نسميه على نفس الجدول المحدد باستخدام الماوس الأيمن قائمة السياق. انقر فوق وظيفة "نسخ". في الموقع الجديد (في مثالنا، هذه هي الخلية A15)، انقر فوق "إدراج". الجميع. اتضح مثل هذا.
كيف، دون نسخ، على الفور طباعة بيانات التصفية في Excel، راجع المقال "إشارة مرجعية ورقة اكسل"تخطيط الصفحة"

الصق فقط في الخطوط المرئيةاكسليمكن عمل الأرقام والصيغ والنص بعدة طرق. عندما تحتاج إلى إدراج أرقام أو صيغ أو نص في ليس كل صفوف الجدول، يمكنك استخدام عامل تصفية. كيفية تثبيت عامل التصفية وكيفية التصفية في Excel، راجع مقالة "التصفية في Excel". ولكن لإدراج البيانات في الخلايا المرئية فقط، فأنت بحاجة إلى أساليبك الخاصة، خاصة إذا كان هناك العديد من الصفوف.
الطريقة الأولى هيعادي .
دعونا نأخذ طاولة مثل هذا. سيكون الجدول هو نفسه بالنسبة لجميع الأمثلة.
دعونا نستخدم مرشحًا لإزالة جميع الأرقام 2 من الجدول. في الخلايا المرئية المتبقية نضع الرقم 600. في الخلية B2 نضع الرقم 600، ثم ننسخه أسفل العمود (اسحب الزاوية اليمنى السفلية للخلية B2). تم نسخ القيم إلى الخلايا المرئية فقط. يمكنك أيضًا إدراج الصيغ بنفس الطريقة. نكتب الصيغة التالية في الخلية C2. =أ2*10
اتضح مثل هذا.
دعونا نلغي الفلتر. والنتيجة هي جدول مثل هذا.
تم إدراج الصيغة والأرقام في الصفوف التي تمت تصفيتها فقط.
الطريقة الثانية.
سنقوم أيضًا بتصفية البيانات. في الخلية الأولى نكتب رقمًا أو صيغة أو نصًا وما إلى ذلك. الآن، إذا كان هناك آلاف الصفوف، فحدد الخلايا على النحو التالي: اضغط على المفاتيح "Ctrl" + "Shift" + زر السهم لأسفل (أو الزر لأعلى، اعتمادًا على المكان الذي نريد تحديد الخلايا فيه - أسفل أو أعلى الخلية التي كتب فيها الرقم).
الآن، أو اضغط على مجموعة المفاتيح "Ctrl" + G، أو المفتاح F5. سيظهر مربع حوار الانتقال. انقر فوق الزر "تحديد...". وفي مربع الحوار الجديد "تحديد مجموعة من الخلايا"، حدد المربع المجاور للكلمات "الخلايا المرئية فقط".انقر فوق "موافق". ثم أدخل كالمعتاد.

طريقة أخرى لإظهار مربع الحوار تحديد مجموعة من الخلايا.في علامة التبويب "الصفحة الرئيسية"، في قسم "التحرير"، انقر فوق الزر "بحث واختيار". في القائمة التي تظهر، انقر على وظيفة "تحديد مجموعة من الخلايا".

ل ملء الخلايا المرئية في أعمدة Excel المحددة، اضغط على مجموعة المفاتيح "Ctrl" + D. وسيتم ملء جميع الأعمدة المحددة بالبيانات أو الصيغة، كما هو الحال في الخلية الأولى. في مثالنا، كتبنا الرقم 800 في الخلية D2، العمود D.

الطريق الثالث.
في عمود جديد (في مثالنا، العمود E)، حدد الخلايا. اضغط على المفتاح F5. سيظهر مربع حوار الانتقال. انقر فوق الزر "تحديد...". وفي مربع الحوار الجديد "تحديد مجموعة من الخلايا"، حدد المربع المجاور للكلمات "الخلايا المرئية فقط". انقر فوق "موافق". الآن، دون إلغاء التحديد، في الخلية الأولى من العمود (خلتنا هي E2)، أدخل الصيغة والرقم وما إلى ذلك. اضغط على مجموعة المفاتيح "Ctrl" + "أدخل".