数据格式处理求助

lovelybean2060

求助，从用友NC系统导出的表，格式整理需要花费大量手工，求助大神帮忙处理，处理前的表格及希望达到的效果见附表。 要求：1、删除第7行以上的所有行          2、主体帐薄名称列，第9-19行中间的内容都为**公司          3、科目名称下的每一个科目和该科目小计中间的内容都为该科目名          4、币种下的每一个币种和下一个币种中间的内容都为该币种          5、所有金额都是文本格式，希望能批量转化成数值形式          6、金额部分显示空白的项，用公式链接后报错，希望能把这种空白项批量处理，方便链接公式 以上要求，求帮助，非常感谢~~

LMY123

导出来的所有工作薄是在一个文件夹里吗？

lovelybean2060

LMY123 发表于 2018-10-17 10:59
导出来的所有工作薄是在一个文件夹里吗？

多家公司的，格式都一样的，可以放到一个文件夹里

LMY123

lovelybean2060 发表于 2018-10-17 11:02
多家公司的，格式都一样的，可以放到一个文件夹里

http://club.excelhome.net/thread-1118530-1-1.html，自己录制一个宏，将名改成fuzhi

lovelybean2060

LMY123 发表于 2018-10-17 11:58
http://club.excelhome.net/thread-1118530-1-1.html，自己录制一个宏，将名改成fuzhi

额，大神，您好像没太明白我的需求，现在我是不知道单张表怎么去把格式处理成我要的效果，知道了单张怎么处理，才能考虑批量操作呢。

grf1973

1. Sub 转换格式()
   
2.     With Sheets(3)
   
3.         [a7:s8].Copy .[a1]
   
4.         arr = Range("a9:s" & [a65536].End(3).Row)
   
5.         For i = 1 To UBound(arr)
   
6.             If i < UBound(arr) - 1 And i >= 2 Then
   
7.                 If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
8.                 If arr(i, 2) = "" Then arr(i, 2) = arr(i - 1, 2)
   
9.                 If arr(i, 5) = "" Then arr(i, 5) = arr(i - 1, 5)
   
10.             End If
    
11.             For j = 7 To UBound(arr, 2)
    
12.                 arr(i, j) = Val(arr(i, j))
    
13.             Next
    
14.         Next
    
15.         .[a3].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16.         .[f3].Resize(UBound(arr), UBound(arr, 2) - 4).NumberFormatLocal = "_ * #,##0.00_ ;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ "
    
17.         .Columns.AutoFit
    
18.         .Activate
    
19.     End With
    
20. End Sub

复制代码

LMY123

lovelybean2060 发表于 2018-10-17 12:43
额，大神，您好像没太明白我的需求，现在我是不知道单张表怎么去把格式处理成我要的效果，知道了单张怎么 ...

Sub 同一文件夹中的excel统一执行一个宏_参考()
    Dim MyPath$, MyName$
    Application.ScreenUpdating = False
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    Do While MyName <> ""
        With Workbooks.Open(MyPath & MyName)
            .Sheets(1).Select
            Call fuzhi
            .Close True
        End With
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub
Sub fuzhi() '''删除第7行以上的所有行
'
' 宏2 宏
'

'
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    Range("D3").Select
End Sub

今夜清风送爽

测试一下。。。

lovelybean2060

grf1973 发表于 2018-10-17 14:30

膜拜大神，我根据您给的表自己做了个转换模板~数据汇总起来方便多了

lovelybean2060

LMY123 发表于 2018-10-17 14:31
Sub 同一文件夹中的excel统一执行一个宏_参考()
    Dim MyPath$, MyName$
    Application.ScreenUpda ...

大神，真是不好意思，我没用明白您给的代码，麻烦您在我上传的附件里给操作一下吧。要求是将工作表里除“转换模板-有辅助”以外的表中内容，截取每个表中第9行开始到**账簿类型小计的上一行为止的部分，并将各表的这部分内容汇总放到“转换模板-有辅助”表的第一个SHEET“汇总”中。
当然，附件是我参考其他人提供的转换格式方法自己做的，因为能力有限，我只能考虑先将各个表的内容汇总到一起，再统一做格式转换。如果您能一步到位，把数据汇总后直接达到“转换模板-有辅助”第二个SHEET“转换结果”的效果，那更是感激不尽！！