通过VBA将数据汇成明细

漫不经心14 · 发表于 2023-3-10 10:07

每次要预算了都很烦这个表，求助各位大佬们，如何快速将汇总表的数据，按照“使用部门*数量”汇到明细表，我之前都是用“使用部门&数量”，但是数量为空的也弄出来了，再删除很麻烦，还容易出错，各位有没有好一些的办法呢！

liulang0808 · 发表于 2023-3-10 10:09

增加一个if判断吧

cjc209 · 发表于 2023-3-10 10:19

财务*1，档案*5，经营*2，后勤*17 是表示什么意思不懂

Yalishanda30 · 发表于 2023-3-10 10:38

本帖最后由 Yalishanda30 于 2023-3-10 10:40 编辑

汇总表表头恶心人。。。我调了一下

tanglf188 · 发表于 2023-3-10 11:10

漫不经心14 · 发表于 2023-3-10 11:13

Yalishanda30 发表于 2023-3-10 10:38
汇总表表头恶心人。。。我调了一下

哈哈哈哈，因为我上传的只是一部分，还有其它类资产，果然懂的人都受不了乱七八糟的表格，感谢感谢

漫不经心14 · 发表于 2023-3-10 11:32

Yalishanda30 发表于 2023-3-10 10:38
汇总表表头恶心人。。。我调了一下

定睛一看，有点问题，生成的数据不完整，比如电视、洗衣机

cjc209 · 发表于 2023-3-10 11:36

tanglf188 发表于 2023-3-10 11:10

你写得太复杂了没有必要
Sub test()
Dim brr(1 To 28, 1 To 1)
Application.ScreenUpdating = False
For i = 5 To 32
      k = k + 1
      合并 = ""
      For j = 9 To 25
         If Sheet2.Cells(i, j) <> "" Then
            合并 = 合并 & "," & Sheet2.Cells(4, j).MergeArea.Cells(1, 1) & "*" & Sheet2.Cells(i, j)
         End If
      Next
      brr(k, 1) = Mid(合并, 2)
Next
Sheet1.[g3].Resize(k, 1) = brr
End Sub

cjc209 · 发表于 2023-3-10 11:39

其实就是一句代码的是
合并单元格取值方法就用Sheet2.Cells(4, j).MergeArea.Cells(1, 1)

cjc209 · 发表于 2023-3-10 11:44

核心代码就是这一句
If Sheet2.Cells(i, j) <> "" Then
合并 = 合并 & "," & Sheet2.Cells(4, j).MergeArea.Cells(1, 1) & "*" & Sheet2.Cells(i, j)
End If

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

[求助] 通过VBA将数据汇成明细

评分

评分

评分