关于提取不规范表格中相关数据的求助

rongr8266 · 发表于 2014-7-14 10:24

附件表是软件中导出来的，有上百张类似的表需要处理，如果一一去整理会相当的抓狂啊！这种情况估计通常的函数、技巧都无法使用吧，不知道VBA是否能够解决？

先谢谢各位查看表格，如有提示、建议、或者方案，都将非常感激！

cbtaja · 发表于 2014-7-14 11:20

表格太多，当然用VBA批量自动处理为最快，虽然用技巧也可以解决，仅几个步骤：
1、全表取消合并单元格，
2、选中A5，按Shift+Ctrl+Enter键，执行“自动筛选”，
3、筛选出“项目特征描述”为空的，整行删除；再筛选出A列为“序号”的，整行删除；
4、现在已经得到完整、而且规范的定额表格了，可以根据情况删除不需要的列，比如仅保留编码和定额人工费这两列。

cbtaja · 发表于 2014-7-14 11:23

单表处理的VBA代码（整理成规范的定额清单，且每条定额的各项内容都完整保留）：

Sub 人工费()
With Me.UsedRange.Offset(5, 0)
.UnMerge
arr = .Value
.Clear
r = UBound(arr): c = UBound(arr, 2)
ReDim brr(1 To r, 1 To c)
For i = 1 To r
If Len(arr(i, 5)) > 0 And arr(i, 1) <> "序号" Then
p = p + 1
For j = 1 To c
brr(p, j) = arr(i, j)
Next
End If
Next
.Value = brr
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub

复制代码

zingy_king · 发表于 2014-7-15 08:26

通过VBA是可以实现，但是如果以后还有类似这样的问题，还要写VBA，很麻烦，建议找IT人员或软件供应商写一条SQL就行了。

rongr8266 · 发表于 2014-7-16 13:21

cbtaja 发表于 2014-7-14 11:20
表格太多，当然用VBA批量自动处理为最快，虽然用技巧也可以解决，仅几个步骤：
1、全表取消合并单元格，
...

Hi 你好，谢谢你的热心回复！我想照您的方法操作试试，但第一步就遇到点麻烦，还请你再指点一下。
全表取消合并，是全选表格，然后点合并按键吗？这里会弹出以下窗口，如果要继续取消合并，需要不停地点OK，否则就只能取消了。
QQ图片20140716131653.jpg

rongr8266 · 发表于 2014-7-16 13:24

zingy_king 发表于 2014-7-15 08:26
通过VBA是可以实现，但是如果以后还有类似这样的问题，还要写VBA，很麻烦，建议找IT人员或软件供应商写一条 ...

嗯谢谢你的热心回复！我也觉得改进软件的导出功能才是根本性解决的办法。

rongr8266 · 发表于 2014-7-16 13:42

cbtaja 发表于 2014-7-14 11:23
单表处理的VBA代码（整理成规范的定额清单，且每条定额的各项内容都完整保留）：

感谢您的热心回复！
我把代码拷进去了但运行出问题了，很不好意思的我不懂VBA，所以能否请你再帮忙看看：
QQ图片20140716131653.jpg

cbtaja · 发表于 2014-7-16 14:43

rongr8266 发表于 2014-7-16 13:42
感谢您的热心回复！
我把代码拷进去了但运行出问题了，很不好意思的我不懂VBA，所以能否请你再帮忙看看： ...

需要把代码放在工作表的模块里。见附件。启用宏，点击按钮运行即可。

提取定额人工费数据.rar (53.36 KB, 下载次数: 11)

cbtaja · 发表于 2014-7-16 14:48

上面的方法只是删除了多余的行。如果需要删除多余的列，或者想批量处理（条件是把所有待提取的文件集中放到同一个文件夹里），请具体说明。

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