|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
lastColumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For j = 1 To lastColumn
xx = Application.CountA(Columns(j))
If xx > 1 Then
z1 = Cells(1, j).End(xlDown).Row
z2 = Cells(Rows.Count, j).End(xlUp).Row
z3 = Cells(1, j).End(xlDown)
For i = z1 + 1 To z2
If Cells(i, j) <> "" Then
Cells(i, j) = z3 & ": " & Cells(i, j)
End If
Next
End If
Next
End Sub
کامنت