با سلام . من سوالی داشتم که اون رو در فایل ضمیمه گذاشتم ممنون میشم اگه راهنمایی کنید.
Sub test()
z1 = Cells(Rows.Count, "b").End(xlUp).Row
z2 = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For j = 2 To z2
For i = 3 To z1 Step 2
If Not IsNumeric(Cells(i, j)) Then
Cells(i, j) = ""
End If
Next
Next
End Sub
کامنت