هدف از ارائه این مطلب معرفی 101 کد نمونه vba  آفیس (101 Samples for Office 2010 Development) می باشد. امیدوارم از این کد ها نهایت استفاده را ببرید.هدف از ارائه این کدها بیان قدرت برنامه های آفیس و تغییر آن مطابق با سلیقه شما می باشد.در این مطلب به معرفی یک نمونه کد اکسل آن اشاره خواهم کرد.

قبل از هر چیز به این نکته اشاره کنم که این کدها یک نمونه هستند و شما باید مطابق با نیاز خود آن ها را تغییر دهید.می توانید متن اصلی این مطلب را از اینجا ببینید.

برای استفاده از این کد نرم افزار اکسل را اجرا کنید.وارد محیط ویرایشگر vba شوید.(Alt+F11)سپس تمام کدها را در sheet1 کپی کنید.مانند تصویر زیر:

نمونه کد های excel vba-حذف ردیف های تکراری-1

برای اینکه کاملا متوجه شوید این کدها به چه نحو عمل می کنند F8 را کلیک کنید تا مرحله به مرحله کد ها اجرا شده و نتیجه را بر روی فایل اکسل ببینید.

نمونه کد های excel vba-حذف ردیف های تکراری

نمونه کد:

Sub TestRemoveDuplicates()
' Set up the data:
Range("A1:C1") = Array("ID", "Name", "Price")
Range("A2:C2") = Array(1, "North", 12)
Range("A3:C3") = Array(2, "East", 13)
Range("A4:C4") = Array(3, "South", 24)
Range("A5:C5") = Array(4, "North", 12)
Range("A6:C6") = Array(5, "East", 23)
Range("A7:C7") = Array(6, "South", 24)
Range("A8:C8") = Array(7, "West", 10)
Range("A9:C9") = Array(8, "East", 23)

' Make sure you look at the current state of the data,
' before removing duplicate rows.

' Remove duplicates, looking for unique values in columns 2 and 3.
UsedRange.RemoveDuplicates Columns:=Array(2, 3), Header:=xlYes

End Sub 

 

بارگذاری بیشتر مطالب مرتبط
بارگذاری در Excel

پاسخ دهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *