از شر مطالب وب خلاص شوید در اکسل

Question

Grant به طور منظم اطلاعات را از صفحات وب کپی می کند و آن اطلاعات را در کاربرگ ها قرار می دهد. او نه تنها با داده های خام، بلکه با موارد دیگری مانند چک باکس، عکس، لوگو و غیره نیز به پایان می رسد. گرانت راهی آسان برای خلاص شدن از شر همه این موارد غیر داده ای می خواهد.

هنگامی که برای اولین بار از وب در یک کاربرگ اکسل جای‌گذاری می‌کنید، ممکن است بخواهید از Paste Special برای انجام کاری مانند Paste As Text یا Paste Values ​​استفاده کنید. این باید از ورود آن اشیاء ناخواسته به کاربرگ شما در وهله اول جلوگیری کند.

اگر Paste Special نتایج دلخواه را به دست نمی‌دهد یا اگر با صفحه کاری کار می‌کنید که اطلاعات و اشیاء قبلاً در آن جای‌گذاری شده‌اند، چند چیز وجود دارد که می‌توانید امتحان کنید. اولین چیزی که اکثر مردم سعی می کنند استفاده از Go To Special به این روش است:

شکل 1. کادر گفتگوی Go To Special.

1. F5 را فشار دهید . اکسل کادر گفتگوی Go To را نمایش می دهد.
2. روی دکمه Special کلیک کنید. اکسل کادر محاوره ای Go To Special را نمایش می دهد. (شکل 1 را ببینید.)
3. گزینه Objects را انتخاب کنید.
4. روی OK کلیک کنید.

هنگامی که این کار را انجام می دهید، اکسل تعدادی از اشیاء موجود در کاربرگ را انتخاب می کند و سپس می توانید کلید Delete را فشار دهید تا از شر آنها خلاص شوید. مشکل این است که این روش همه موارد غیر داده ای را در کاربرگ انتخاب نمی کند. فقط یک زیرمجموعه از آنها را انتخاب می کند - مواردی که توسط اکسل "اشیاء" در نظر گرفته می شوند.

راه حل بهتر این است که از یک ماکرو برای انتخاب تمام اشکال موجود در کاربرگ استفاده کنید و سپس آنها را حذف کنید. انجام این کار بسیار ساده است، با استفاده از یک ماکرو مانند این:

Sub DeleteAllShapes1()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next
End Sub

ماکرو فقط از طریق هر شکل در کاربرگ فعال حلقه زده و هر یک را حذف می کند. شما می‌توانید ماکرو را کمی گسترش دهید و همچنین تمام لینک‌هایی را که در کاربرگ چسبانده شده‌اند حذف کنید. تنها چیزی که لازم است اضافه کردن یک خط است:

Sub DeleteAllShapes2()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next
    ActiveSheet.Hyperlinks.Delete
End Sub

اگر به دلایلی عجیب، این ماکروها از شر تمام موارد غیر داده ای که می خواهید حذف شوند خلاص نمی شوند، روش دیگری وجود دارد که می توانید از آن استفاده کنید: قبل از اکسل در NotePad توقف کنید. به سادگی داده های وب خود را در یک سند NotePad خالی قرار دهید، سپس آن اطلاعات را انتخاب کنید (پس از چسباندن) و دوباره آن را در کلیپ بورد کپی کنید. سپس آن را در اکسل قرار دهید. تنها چیزی که باقی می ماند باید داده های مستقیم باشد.