如何使用VBA删除除特定标题之外的所有空白列？ [英] How can I use VBA to delete all columns which are empty apart from a specific header?

问题描述

我想删除符合以下条件的工作表中的所有列：

I'd like to delete all columns in a worksheet which meet the following criteria:

• 第1行=foobar li>
  
• 行2-1000是空的

听起来很简单，但我没有设法得到它完全工作任何帮助将被大量赞赏。

It sounds simple enough but I haven't managed to get it working fully. Any help would be massively appreciated.

谢谢！

推荐答案

关于

dim col as Long, lastCol as Long, r as range
lastCol = ActiveSheet.Usedrange.columns(Activesheet.Usedrange.columns.count).column
for c=lastCol to 1 Step -1
    set r = Range(Cells(1, c), Cells(1000, c))
    if r.Rows(1) = "foobar" Then
        if WorksheetFunction.CountA(Range(r.Rows(2), r.Rows(r.Rows.Count))) = 0 then
            Columns(c).delete
        end if
    end If
next

这篇关于如何使用VBA删除除特定标题之外的所有空白列？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！