انتخاب یا حذف یک یا چند در میان ردیف‌ها در اکسل - ماکرو

هنگامی‌که در یک فایل اکسل بخواهیم ردیف‌ها را بصورت یک یا چند در میان انتخاب کنیم می‌توان اینکار را به صورت دستی انجام داد، اما اگر صدها ردیف داشته باشیم، این روش انتخاب خوبی نیست. در ادامه با پی‌سی‌ترفند همراه باشید تا با چند ترفند برای اینکار آشنا شوید.

روش اول: استفاده از ابزار فیلتر

بطور نمونه اگر بخواهید یک در میان ردیف ها را انتخاب کنید برای اینکار در ستون مجاور داده‌ها، اعداد 0 و 1 را وارد کنید. در مثال زیر این اعداد در ستون C وارد شده است.

ستون C را انتخاب کرده و از تب Data روی گزینه Filter کلیک کنید. سپس روی علامت فلش کنار سلول C1 کلیک کرده و یکی از گزینه‌های 0 یا 1 (مثلا 0) را انتخاب کنید.

پس از اینکار نتیجه زیر حاصل می‌شود. در واقع ردیف‌هایی که درون سلول آن‌ها عدد 1 قرار دارد مخفی شده‌اند.

حال اگر بخواهید ردیف‌هایی که درون سلول آن‌ها عدد 0 است را حذف کنید کافیست ردیف‌های فوق را انتخاب کرده و از تب Home قسمت Delete روی گزینه Delete sheet rows کلیک کنید. با اینکار این ردیف‌ها حذف می‌شوند و مطابق شکل زیر ردیف‌هایی که درون آن عدد 1 قرار دارد ظاهر می‌شود. اکنون می‌توانید ستون کمکی C را حذف کنید.

روش دوم: با استفاده از فرمول

مثال زیر را در نظر بگیرید. می‌خواهیم ردیف‌ها را به صورت 5 در میان انتخاب کنیم.

برای اینکار می‌توان از تابع OFFSET استفاده کرد. در مثال فوق فرمول زیر را در سلول F1 وارد کنید تا سلول مورد نظرتان اعمال کنید. با اینکار مطابق شکل زیر محتویات هر 5 ردیف در میان از ستون C در ستون F قرار می گیرد.

=OFFSET($C$1,(ROW()-1)*5,0)

در فرمول فوق، C1 سلول اول ستونی است که می‌خواهید اطلاعات آن را استخراج کنید. عدد 5 فاصله بین ردیف‌ها است.

روش سوم: استفاده از کد ماکرو

کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic ظاهر می‌شود. در این پنجره از تب Insert گزینهModule را انتخاب نمائید.

در پنجره باز شده کدهای زیر را کپی کنید.

Sub EveryOtherRow()
'pctarfand.ir & tarfandha.blog.ir'
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
 Set rng = InputRng.Cells(i, 1)
 If OutRng Is Nothing Then
  Set OutRng = rng
 Else
  Set OutRng = Application.Union(OutRng, rng)
 End If
Next
OutRng.EntireRow.Select
End Sub

سپس در پنجره بعد عدد مورد نظرتان را وارد کنید. مثلا 3 برای انتخاب 3 ردیف در میان.

پس از کلیک روی دکمه ok، ردیف‌ها به صورت 3 در میان انتخاب می‌شوند که می‌توانید از آن‌ها کپی بگیرید.

منبع: سایت extendoffice.com