[已解决]请帮忙录制宏，求大师指点

Annalee9988

Sub cdsr()

   Dim arr(1 To 10, 1 To 8), i&, k&, lastrow&, lastrow1&

   Dim ws As Worksheet

   Sheet3.Range("a2:h50000").ClearContents

   For Each ws In Worksheets

       If ws.Name <> "合并" Then

           With ws

                lastrow = .Cells(Rows.Count,6).End(xlUp).Row

                For i = 7 To lastrow

                    k = k + 1

                    arr(k, 1) = .[b5]

                    arr(k, 2) = .[k5]

                    arr(k, 3) = .[k4]

                    arr(k, 4) = .Cells(i, 2)

                    arr(k, 5) = .Cells(i, 3)

                    arr(k, 6) = .Cells(i, 4)

                    arr(k, 7) = .Cells(i, 6)

                    arr(k, 8) = .Cells(i, 7)

                Next

           End With

           lastrow1 = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row + 1

           Sheet3.Range("a" & lastrow1).Resize(k, 8) = arr

           Erase arr: k = 0

       End If

我想将附档中每张表中的送货单，汇总到汇总表的明细表中，求大师指点，谢谢

最佳答案

月排行榜 / 总排行榜

bridgeyao

2021-3-21 10:48

两张分表的格式还是不一样的啊，一个有金额，一个没有金额。

跳转到最佳答案楼层

Annalee9988

有大家帮忙，谢谢

bridgeyao

两张分表的格式还是不一样的啊，一个有金额，一个没有金额。

Annalee9988

bridgeyao 发表于 2021-3-21 10:48
两张分表的格式还是不一样的啊，一个有金额，一个没有金额。

这个金额没有多大关系，只要前面那些即可，谢谢

Annalee9988

bridgeyao 发表于 2021-3-21 10:48
两张分表的格式还是不一样的啊，一个有金额，一个没有金额。

谢谢你，你写得这个代码很好用，能否再帮忙修改一下，就是把客户名称后面的括号及括号内的内容去掉？谢谢！

bridgeyao

Annalee9988 发表于 2021-5-19 15:33
谢谢你，你写得这个代码很好用，能否再帮忙修改一下，就是把客户名称后面的括号及括号内的内容去掉？谢谢 ...

改下这个句子试下：
                    arr(k, 1) = VBA.Mid(.Cells(i - 2, 1), 6, Application.Max(InStr(.Cells(i - 2, 1), "（") - 6, InStr(.Cells(i - 2, 1), "(") - 6))
               后面半句里面引用的括号你有半角和全角的