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

xmike1 · 发表于 2011-1-30 11:53

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

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

盼高手解惑
详见附件

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

zhz3230 · 发表于 2011-1-30 12:42

表头在第三行即可

蓝桥玄霜 · 发表于 2011-1-30 12:44

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

复制代码

xmike1 · 发表于 2011-1-30 17:55

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

xiaofeiwa · 发表于 2011-1-30 22:25

3楼大侠

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

蓝桥玄霜 · 发表于 2011-1-31 08:15

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

xmike1 · 发表于 2011-2-13 20:55

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

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

蓝桥玄霜 · 发表于 2011-2-14 12:42

Sub yy()
Dim Sht As Worksheet, i&, aa$, Myc%, j%, bb, r1
aa = "产品名称,产品规格,物料编号,物料名称,规格型号,计量单位,实发数量"
Application.ScreenUpdating = False
For Each Sht In Sheets
Sht.Activate
Myc = [iv3].End(xlToLeft).Column
For i = Myc To 1 Step -1
If InStr(aa, Cells(3, i)) = 0 Then
Cells(1, i).EntireColumn.Delete
End If
Next
bb = Array("规格型号", "实发数量")
For j = 0 To 1
Set r1 = Rows(3).Find(bb(j))
If r1 Is Nothing Then
If j = 0 Then
Columns("E:E").Insert Shift:=xlToRight
Range("E3").Select
[e3] = bb(0)
Selection.Font.ColorIndex = 3
Else
Range("g3").Select
[g3] = bb(1)
Selection.Font.ColorIndex = 3
End If
End If
Next
Next
Application.ScreenUpdating = True
End Sub

复制代码

xmike1 · 发表于 2011-2-15 20:47

谢谢楼上的高手，谢谢

duzlin · 发表于 2011-4-1 11:50

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

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

		自动登录	找回密码
密码			免费注册

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

评分