用VBA代码判断单元格内容删减整列操作

feifei520420 · 发表于 2022-12-5 21:15

本帖最后由 feifei520420 于 2022-12-5 23:17 编辑

一个计划审批的Excel表格从网页上导出来的，需要的目标列已经标黄色，表格由于更新列数和行数都不固定，但是标黄的列必定存在，需要用VBA代码判断删除其他多余列（整列删除）。然后车间盯控人和段盯控人均无数据的行要整行删除，车间盯控人无数据且段盯控人有数据的要把段盯控人的数据剪切到车间盯控人单元格，车间盯控人和段盯控人都有数据不管，最后删除段盯控人（整列），将车间盯控人改为盯控干部，计划类型有点内和点外之分，位置也是随机的，需要把点内计划排在点外计划下面，然后得到处理后的表格（如图），希望大神写的代码有详细的注释，有良好的可读性可供学习

蓝桥玄霜 · 发表于 2022-12-6 11:09

处理的例子：

feifei520420 · 发表于 2022-12-6 11:28

蓝桥玄霜发表于 2022-12-6 11:09
处理的例子：

您好！列标黄色是我自己弄得，原始表格无颜色填充，我就是想把“序号”，“工区”、“计划类型”、“作业区段”、"作业时段"、“车间盯控人”、“段盯控人”这7列筛选出来（无论它们的位置如何变化），然后删除其他列，第一页代码sub lqxs()应该怎么改

iu950 · 发表于 2022-12-6 15:44

结果放在了sheet2，附件供参考

feifei520420 · 发表于 2022-12-7 23:08

iu950 发表于 2022-12-6 15:44
结果放在了sheet2，附件供参考

效果是达到了，就是这个代码只能在当前工作簿运行，工作簿我是从网页中导出来的，能不能把代码放到个人宏工作簿中，导出表格后直接运行？VBE提示运行时错误"13",类型不匹配，好像是arr=sheet1.usedrange出错了。能不能修改完善呢？

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

[求助] 用VBA代码判断单元格内容删减整列操作