السلام عليكم
هكذا
Sub ÓåãááãÓÝá1_äÞÑ()
Dim Z, LR As Long
'---------------------------------------------
Range(Cells(12, "M"), Cells(51, "M")).ClearContents
'---------------------------------------------
Z = 4
For X = 1 To 3
For i = 1 To Application.WorksheetFunction.CountA(Range(Cells(12, Z).Address, Cells(51, Z).Address))
LR = Cells(100, "M").End(xlUp).Row + 1
Cells(LR, "m") = Cells(i + 11, Z + 1)
Next i
Z = Z + 3
Next X
End Sub
اضغظ السهم فوق كلمة تجميع
test10.rar