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

[yehyafouda]

السلام عليكم 

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

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

[ابراهيم الحداد]

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

لعدم وجود ملف دعنى اتخيل أن القيم موجودة بالعمود "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

 

[سليم حاصبيا]

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

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