اذهب الي المحتوي
أوفيسنا

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


yehyafouda

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

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information