|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
k = 3
z1 = Cells(Rows.Count, "A").End(xlUp).Row
z2 = Cells(Rows.Count, "j").End(xlUp).Row + 3
Range("j3:k" & z2).ClearContents
For i = 2 To z1
If Application.CountIf(Range("b2:b" & i), Range("b" & i)) = 1 Then
For j = 3 To 5
If Cells(i, j) = "" Then
If xx = "" Then
xx = Cells(1, j)
Else
xx = xx & "/" & Cells(1, j)
End If
End If
Next
If xx <> "" Then
Range("j" & k) = i - 1
Range("k" & k) = xx
k = k + 1
xx = ""
End If
Else
Range("j" & k) = i - 1
Range("k" & k) = "ʘÑÇÑí : " & Range("b" & i)
k = k + 1
End If
Next
End Sub
کامنت