خواهش میکنم فوریه
حیاتیه
مرسی
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub TEST()
Dim I, J, T As Integer
Dim sht As Worksheet
Dim LastROWA, LastROWB As Integer
Set sht = ThisWorkbook.Worksheets("Sheet1")
LastROWA = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
LastROWB = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row
T = 2
For J = 2 To LastROWB
For I = 2 To LastROWA
If Cells(I, 1).Value = Cells(J, 2).Value Then
Cells(T, 3).Value = Cells(I, 1).Value
If Cells(T, 3).Value = Cells(T - 1, 3).Value Then
Cells(T, 3).Value = ""
T = T - 1
End If
Cells(I, 1).Value = ""
T = T + 1
End If
Next I
Next J
End Sub
کامنت