按照第一列的数字，删除指定列

caidao2031

按照第一行的数字（没有规律），删除指定的列。如要删除第一行中数字为1408、1415.。。。。的列，改如何进行呢？

caidao2031

是按照第一行的数字，删除指定列

zhaogang1960

试试看：
Sub Macro1()
    Dim a, c As Range
    a = Array(1408, 1405)
    For i = 0 To UBound(a)
        Set c = Rows(1).Find(a(i), , , xlWhole)
        If Not c Is Nothing Then c.EntireColumn.Delete
    Next
End Sub

Zamyi

原帖由 caidao2031 于 2009-11-26 17:02 发表
按照第一行的数字（没有规律），删除指定的列。如要删除第一行中数字为1408、1415.。。。。的列，改如何进行呢？

看不懂，是要删除1408、1415这些数所在的列还是它们的列号？

caidao2031

是要删除1408、1415这些数所在的列的所有数据，能搞不？

zhz3230

本程序可以根据第一列中出现的数据删除第一行与第一列相同的数据所在的列
如果不能满足你可以自己修改
Sub zhz3230()
i = 3
While Sheets("sheet1").Cells(i, 1) <> ""
a = Sheets("sheet1").Cells(i, 1)
For j = 2 To 256
b = Sheets("sheet1").Cells(1, j)
If a = b Then
Sheets("sheet1").Cells(1, j).EntireColumn.Delete
End If

Next j
i = i + 1
Wend
End Sub