حذف مقادیر صفر از جدول داده

Question

رابرت ماکرویی را می خواهد که تمام نمونه های سلول ها را در جدول داده ای که مقدار صفر دارند پیدا کند و سپس آن سلول ها را حذف کند. او تعجب می کند که چگونه این کار را انجام دهد.

برای اهداف این نکته، من فرض می کنم که رابرت واقعاً می خواهد مقادیر موجود در سلول ها را پاک کند، نه اینکه سلول ها را حذف کند. علاوه بر این، من فرض می کنم که او نمی خواهد فقط مقادیر صفر را پنهان کند، همانطور که می توان به راحتی با یک تغییر تنظیمات ساده در اکسل انجام داد. (نحوه انجام این کار در سایر نکات Excel توضیح داده شده است .)

در واقع چند راه وجود دارد که می توانید برای خلاص شدن از شر مقادیر صفر خود استفاده کنید. یک راه حتی از ماکروها استفاده نمی کند، بلکه به قابلیت های Find and Replace اکسل متکی است:

شکل 1. تب Replace گسترش یافته از کادر محاوره ای Find and Replace.

1. Ctrl+H را فشار دهید . اکسل زبانه Replace را در کادر گفتگوی Find and Replace نمایش می دهد.
2. روی دکمه Options کلیک کنید تا کادر محاوره ای باز شود. (شکل 1 را ببینید.)
3. در کادر Find What عدد 0 را وارد کنید.
4. مطمئن شوید که کادر Replace With خالی است.
5. کادر بررسی Match Entire Cell Contents را انتخاب کنید.
6. برای انجام تعویض روی Replace All کلیک کنید.

حتی در صورت تمایل می توانید مراحل بالا را به یک ماکرو کوچک ترجمه کنید:

Sub ReplaceZeros()
    Cells.Replace What:="0", Replacement:="", _
      LookAt:=xlWhole, SearchOrder:=xlByRows
End Sub

محدودیتی برای انجام این روش وجود دارد، به ویژه اینکه تنها سلول هایی را جایگزین می کند که در واقع حاوی مقدار 0 هستند. به عنوان مثال، اگر یک سلول حاوی فرمول =4-4 باشد که به 0 حل می شود، عملیات Find and Replace آن را نادیده می گیرد زیرا در واقع مقدار 0 در سلول وجود ندارد.

اگر چیزی می خواهید که در واقع سلول های حاوی 0 یا 0 را پاک کند، به یک رویکرد ماکرو متفاوت نیاز دارید. اینم یکی خوب:

Sub DeleteZeroes()
    Dim rCell As Range

    For Each rCell In Selection
        If rCell.Value = 0 Then
            rCell.ClearContents
        End If
    Next
End Sub

برای استفاده از ماکرو، کافی است سلول هایی را که می خواهید روی آن تأثیر بگذارید، انتخاب کنید و سپس ماکرو را اجرا کنید. از طریق هر یک از سلول های انتخاب شده نگاه می کند و محتویات هر سلولی را که دارای مقدار 0 است حذف می کند - و در این مورد همچنین شامل فرمول هایی است که به 0 تبدیل می شوند.