حذف ستونهای پنهان شده

[mojtaba_2006]

دوستان سلام
در یک فایل بزرگ اکسل، ستونهایی را پنهان کردم؛ اما الان میخواهم بدون اینکه ستونها را دوباره آشکار کنم؛ آنها را حذف کنم؛ آیا تنظیمات و یا دستور خاصی برای این کار هست؟

ممنون میشم پاسخ بدید.

[MEYTI]

RE: حذف ستونهای پنهان شده

خدمت شما دوست عزیز

For lp = 1 To 256 'loop through all columns
If Columns(lp).EntireColumn.Hidden = True Then
Columns(lp).EntireColumn.Delete
End If
Next