|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
K1 = Application.WorksheetFunction.CountA(Sheet2.Range("2:2"))
For I = 2 To Z1
For J = 1 To K1
If Sheet1.Range("D" & I).Value = Sheet2.Cells(2, J).Value Then
Z2 = Sheet2.Cells(Sheet2.Rows.Count, J).End(xlUp).Row + 1
Sheet2.Cells(Z2, J).Value = Sheet1.Range("B" & I).Value
End If
Next: Next
End Sub
Sub test()
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
K1 = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
LR = Sheet2.UsedRange.Rows.Count
Sheet2.Range(Cells(3, 1), Cells(LR, K1)).ClearContents
For I = 2 To Z1
For J = 1 To K1
If Sheet1.Range("D" & I).Value = Sheet2.Cells(2, J).Value Then
Z2 = Sheet2.Cells(Sheet2.Rows.Count, J).End(xlUp).Row + 1
Sheet2.Cells(Z2, J).Value = Sheet1.Range("B" & I).Value
End If
Next: Next
End Sub
کامنت