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

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

  • تمت الإجابة
قام بنشر

للأسف لا يوجد معادلة للقيام بهذا الأمر إلا في الإصدارات الحديثة

وربما تكون طويلة ومعقدة

ولكن يمكنك استعمال هذا الاجراء

Sub RepeatValuesInColumn()
    Dim ws As Worksheet
    Dim sourceRow As Long
    Dim targetRow As Long
    Dim repeatCount As Long
    Dim lastRow As Long
    
    ' تحديد ورقة العمل
    Set ws = ActiveSheet
    
    ' الحصول على آخر صف يحتوي على بيانات في العمود G
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' تحديد صف البدء للعمود J
    targetRow = 7 ' ابدأ من الصف J7
    
    ' التكرار لكل صف في العمود G وH
    For sourceRow = 7 To lastRow
        If ws.Cells(sourceRow, "G").Value <> "" And IsNumeric(ws.Cells(sourceRow, "H").Value) Then
            repeatCount = ws.Cells(sourceRow, "H").Value
            If repeatCount > 0 Then
                Dim i As Long
                For i = 1 To repeatCount
                    ws.Cells(targetRow, "J").Value = ws.Cells(sourceRow, "G").Value
                    targetRow = targetRow + 1
                Next i
            End If
        End If
    Next sourceRow
    
    MsgBox "تم التكرار بنجاح!", vbInformation
End Sub

بالتوفيق

  • Like 4

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information