vba数据导出处理

yujingc · 发表于 2023-4-3 08:55

本帖最后由 yujingc 于 2023-4-3 16:00 编辑

现有一组比较杂乱的数据，我需要将表1数据导出成我所需要的数据
希望能够生成如下
1.根据原始数据表生成，编号后面的数据是原始数据表第二行红色的数据
2.把每一个编号对应的主色/点色/发际线数据导出有些主色/点色长度是多个，希望能够合并单元格
3.根据余发列的数据导出每一长度余发不是0的数据并汇总
https://wwi.lanzoup.com/b018r2quf
密码:9tgk

洋务德雷 · 发表于 2023-4-3 09:31

真够乱的~~~~~

3190496160 · 发表于 2023-4-3 10:22

表1设计没有考虑到后期处理，根本就是一团糟，想用代码来解决，可以解决，但是，非常繁琐

yujingc · 发表于 2023-4-3 10:59

洋务德雷发表于 2023-4-3 09:31
真够乱的~~~~~

大佬你有啥好的表现形式吗？想要求助一下，我自己换了一些形式感觉都没有这个乱的方便

yujingc · 发表于 2023-4-3 11:01

3190496160 发表于 2023-4-3 10:22
表1设计没有考虑到后期处理，根本就是一团糟，想用代码来解决，可以解决，但是，非常繁琐

大佬你有啥好的表现形式吗？想要求助一下，我自己换了一些形式感觉都没有这个乱的方便

高个子 · 发表于 2023-4-3 11:06

确实乱，你最起码得竖着放才好做……

yujingc · 发表于 2023-4-3 11:09

高个子发表于 2023-4-3 11:06
确实乱，你最起码得竖着放才好做……

之前做过一版竖着的，用起来很不方便，因为这个数据是得我根据总克重计算，竖着做对于这些数据我就看的不是很清楚，很容易算错

yujingc · 发表于 2023-4-3 11:10

Option Explicit

Sub x()
Dim arr, i, j, k, arr2(1 To 1000, 1 To 3), arr3(1 To 1000, 1 To 2), n2, n3, i3
'从表1数据汇总arr2
n2 = 0
arr = Sheets("PO#230212").UsedRange '表1内容
For i = 2 To UBound(arr)
      For Each k In Array(6, 8, 10, 12) 'F、H、J、L列
         j = k + 1
         If arr(i, j) = "" Then arr(i, j) = arr(i - 1, j) '处理合并单元格
         If arr(i, k) <> "" Then
            'arr(i,1)、 arr(i,k)、arr(i,j) 一组数据累加到数组arr2中
            n2 = n2 + 1
            arr2(n2, 1) = arr(i, 1)
            arr2(n2, 2) = arr(i, k)
            arr2(n2, 3) = arr(i, j)
         End If
      Next k
Next i
'从arr2汇总arr3
n3 = 0
For i = 1 To n2
      For i3 = 1 To n3
         If Right(arr3(i3, 1), 4) = Right(arr2(i, 3), 4) Then Exit For
      Next i3
      If i3 > n3 Then
         arr3(i3, 1) = arr2(i, 3)
         n3 = i3
      End If
      arr3(i3, 2) = arr3(i3, 2) + arr2(i, 2)
Next i
'把结果arr2、arr3保存到 H 列（最后楼主自己修改为A列）
Sheets("生成").Activate
Range("h:j").ClearContents
Cells(1, "H").Resize(n2, 3) = arr2
Cells(n2 + 2, "H").Resize(n3, 2) = arr3
End Sub

这是一个大佬帮我写的，能够实现将数据导出，但是很多细节还需要修改

zpy2 · 发表于 2023-4-3 11:34

https://club.excelhome.net/forum.php?mod=viewthread&tid=1654712&mobile&_dsign=848d8297

yujingc · 发表于 2023-4-3 12:52

zpy2 发表于 2023-4-3 11:34
https://club.excelhome.net/forum.php?mod=viewthread&tid=1654712&mobile&_dsign=848d8297

大佬我修改了一下，之前用这种方式但是在具体应用中会出现很多修改，这种方式就不够直接清楚

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

[求助] vba数据导出处理