Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 134|回复: 5

[已解决]请大神做一个自动读取的送货入库单

[复制链接]
发表于 2022-6-16 15:27 | 显示全部楼层 |阅读模式
做一个自动读取的送货单.zip (42.4 KB, 下载次数: 5)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2022-6-16 15:55 | 显示全部楼层

請測試看看,謝謝
Sub test()
Dim Arr, T, T1, i&, j%
T = Sheet4.Range("B2")
Arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(Arr)
    If Arr(i, 14) = T Then
        n = n + 1: Arr(n, 1) = Arr(i, 1)
        For j = 4 To 12: Arr(n, j) = Arr(i, j): Next
    End If
    T1 = Arr(i, 14)
Next
With Sheet4
    .[a4:j20] = ""
    .[a4].Resize(n, 10) = Arr
    .[f2] = T1
End With
End Sub

回复

使用道具 举报

发表于 2022-6-16 15:59 | 显示全部楼层
請問顯示板總數如何計算? 請說明,謝謝
1.JPG
回复

使用道具 举报

 楼主| 发表于 2022-6-16 16:05 | 显示全部楼层
sam-wang 发表于 2022-6-16 15:59
請問顯示板總數如何計算? 請說明,謝謝

数据内容不太对,错位了 项目名称是不要的,类别也不需要
当前做比如显示过来4行数据 那么空个两三行做个合计,操纵箱显示板  上面4行数据就是4,指令版4行数据 也是4,如果今天只有2行数据则都是2,这样子
回复

使用道具 举报

 楼主| 发表于 2022-6-16 16:18 | 显示全部楼层
sam-wang 发表于 2022-6-16 15:59
請問顯示板總數如何計算? 請說明,謝謝

微信截图_20220616161729.png
实现以上结果
回复

使用道具 举报

发表于 2022-6-16 16:39 | 显示全部楼层    本楼为最佳答案   


請再測試看看,謝謝
Sub test()
Dim Arr, Brr(1 To 1, 1 To 10), T, T1, n&, n1&, i&, j%
T = Sheet4.Range("B2")
Arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(Arr)
    If Arr(i, 14) = T Then
        n = n + 1: Arr(n, 1) = Arr(i, 1)
        For j = 4 To 12: Arr(n, j - 2) = Arr(i, j): Next
    End If
    T1 = Arr(i, 13)
Next
Brr(1, 1) = "Total"
For j = 2 To 10: For i = 1 To n
    T = Arr(i, j): If T <> "" Then n1 = n1 + 1: Brr(1, j) = n1
Next: n1 = 0: Next
With Sheet4
    .[a4:j20] = ""
    .[a4].Resize(n, 10) = Arr
    .[f2] = T1
    .Cells(n + 6, 1).Resize(1, 9) = Brr
End With
End Sub

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2022-8-15 11:34 , Processed in 0.353384 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表