|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
k1 = Cells(1, Columns.Count).End(xlToLeft).Column
k2 = Cells(2, Columns.Count).End(xlToLeft).Column
k3 = 1
Rows("3:3").ClearContents
For j = k2 + 1 To k1
If Cells(1, j) = Cells(2, k2) Then
Cells(3, k3) = j - k2
k3 = k3 + 1
End If
Next
For j = 1 To k2
If Cells(1, j) = Cells(2, k2) Then
Cells(3, k3) = j + k1 - k2
k3 = k3 + 1
End If
Next
End Sub
کامنت