在VBA中如何去识别需要的列，并将不需要的列删除掉？

xmike1

在VBA中如何去识别需要的列，并将不需要的列删除掉？

从某系统中导出的数据，在进行数据处理时，只有“产品名称、产品规格、物料编号、物料名称、规格型号、计量单位、实发数量”这几列有用，其他的列都要删除，由于每次导出的数据的列数不是固定的，比如有时候如表1有33列，有的可能如表2是28列、或者36列……而且每个需要的两个列之间的间隔也不同，比如在表一中“产品规格”与“物料编号”之间隔了5列，但是在表2中只隔了3列。在VBA中如何去识别需要的列，并将不需要的列删除掉?

盼高手解惑
详见附件

[ 本帖最后由 xmike1 于 2011-1-30 11:55 编辑 ]

zhz3230

表头在第三行即可

蓝桥玄霜

1. Sub yy()
   
2. Dim Sht As Worksheet, i&, aa$, Myc%
   
3. aa = "产品名称,产品规格,物料编号,物料名称,规格型号,计量单位,实发数量"
   
4. Application.ScreenUpdating = False
   
5. For Each Sht In Sheets
   
6.     Sht.Activate
   
7.     Myc = [iv3].End(xlToLeft).Column
   
8.     For i = Myc To 1 Step -1
   
9.         If InStr(aa, Cells(3, i)) = 0 Then
   
10.             Cells(1, i).EntireColumn.Delete
    
11.         End If
    
12.     Next
    
13. Next
    
14. Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

xmike1

谢谢，楼上的两位高手，
3楼的我试过了，很正确。
2楼的附件我下载不了，不过还是很感谢。

xiaofeiwa

3楼大侠

我学习了下你附件中的vba，很是佩服。有一点疑惑。
你的那个 按钮1 是怎么放在表格上的。看代码也看不到。请教下

蓝桥玄霜

右键点击菜单下的空白处，在快捷菜单中选择窗体工具栏，在窗体工具栏上左键点击按钮控件，然后就可在表格中拖拉出那个按钮了。

xmike1

楼上各位高手，
接删除无用列后，
如果需要的列如“规格型号”、“实发数量”等缺少，
就在删除无用列后在其应有的顺序列用红色字体将其标示出来，
起到提醒作用，如同表3的效果（详见附件2）
又该如何用VBA编程呢？
希望将删除无用列和提示缺少列的程序写在一起。
先谢谢了

[ 本帖最后由 xmike1 于 2011-2-13 21:12 编辑 ]

蓝桥玄霜

1. Sub yy()
   
2. Dim Sht As Worksheet, i&, aa$, Myc%, j%, bb, r1
   
3. aa = "产品名称,产品规格,物料编号,物料名称,规格型号,计量单位,实发数量"
   
4. Application.ScreenUpdating = False
   
5. For Each Sht In Sheets
   
6.     Sht.Activate
   
7.     Myc = [iv3].End(xlToLeft).Column
   
8.     For i = Myc To 1 Step -1
   
9.         If InStr(aa, Cells(3, i)) = 0 Then
   
10.             Cells(1, i).EntireColumn.Delete
    
11.         End If
    
12.     Next
    
13.     bb = Array("规格型号", "实发数量")
    
14.     For j = 0 To 1
    
15.         Set r1 = Rows(3).Find(bb(j))
    
16.         If r1 Is Nothing Then
    
17.             If j = 0 Then
    
18.                 Columns("E:E").Insert Shift:=xlToRight
    
19.                 Range("E3").Select
    
20.                 [e3] = bb(0)
    
21.                 Selection.Font.ColorIndex = 3
    
22.             Else
    
23.                 Range("g3").Select
    
24.                 [g3] = bb(1)
    
25.                 Selection.Font.ColorIndex = 3
    
26.             End If
    
27.         End If
    
28.     Next
    
29. Next
    
30. Application.ScreenUpdating = True
    
31. End Sub
    

复制代码

xmike1

谢谢楼上的高手，谢谢

duzlin

谢谢楼上的高手蓝桥!
我也有楼主的问题,照蓝桥的方法做很好用,但我发现一个问题:我的表删除不需要的列后如下:
日期        单据编号        产品名称        购货单位        发货仓库        单位        实发数量        发货        交货地点

其中的"单位"和"发货"不是我需要的但没有被删除,我怀疑是InStr函数查找时的问题,但不知如何解决?
请蓝桥高手指点一下,谢谢!