مساعدة فى نسخ خلايا معينة

yehyafouda · فبراير 7, 2018

السلام عليكم

كنت محتاج مساعدة فى نسخ خلايا معينة من داخل عمود

مثلا لو عمود فيه 20 قيمة عايز 10 بس يعنى انسخ خليه واسيب خليه هل ف معادلة او كود تحل المشكلة دى

**ابراهيم الحداد** · فبراير 7, 2018

السلام عليكم ورحمة الله

لعدم وجود ملف دعنى اتخيل أن القيم موجودة بالعمود "C" و لعشرين صف متتالى

ونريد ان ننسخ القيم التى بالصفوف الفردية

ونلصقها متتالية فى العمود "D" حسب ما فهمت

استخدم الكود التالى

Sub trans()
For i = 1 To 20 Step 2
If Cells(i, 3) <> "" Then
p = p + 1
Cells(p, 4) = Cells(i, 3)
End If
Next
End Sub

**سليم حاصبيا** · فبراير 7, 2018

لو فرضنا ان البيانات في العامود ِA هذه المعادلة تفي بالمطلوب (مع السحب نزولاً قدر ما تريد)

=IF(ROWS($A$1:A1)>(COUNTA(A:A))/2,"",INDEX(A:A,2*(ROWS($A$1:A1)-1)+1))

الردود الموصى بها