这个格式可以用VBA代码来整理吗？

小葵1124

表一是源数据，需要整理成表二的格式，用VBA或者函数能做到吗，求大神支招
我更新了一下日期，因为会碰到汇总很多周的数据所以日期也需要用VBA代码整理

小葵1124

有人可以帮我看看吗，或者提供些思路应该怎样整理这个数据比较好

小葵1124

跪求大神支招~

一把小刀闯天下

'没有日期

Option Explicit

Sub test()
  Dim i, j, k, pos, n, t, arr
  pos = Split("3-2 4-3 5-4 6-5 7-6 8-7 10-8 11-9 12-10 14-11 15-12 16-13")
  With Sheets("源数据")
    arr = .Range("a2:m" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
  End With
  ReDim brr(1 To Rows.Count, 1 To 16)
  For i = 1 To UBound(arr, 1) - 1
    If arr(i, 2) = "来源名称" Then
      For j = i + 1 To UBound(arr, 1) - 1
        n = n + 1
        brr(n, 2) = arr(i - 3, 3): brr(n, 9) = arr(i - 2, 3): brr(n, 13) = arr(i - 1, 3)
        For k = 0 To UBound(pos)
          t = Split(pos(k), "-"): brr(n, Val(t(0))) = arr(j, Val(t(1)))
        Next
        If Len(arr(j + 1, 1)) = 0 Then i = j: Exit For
      Next
    End If
  Next
  With Sheets("格式整理").[a2]
    .Resize(Rows.Count - 1, UBound(arr, 2)).ClearContents
    .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

小葵1124

一把小刀闯天下 发表于 2018-6-11 14:42
'没有日期

Option Explicit

日期要怎么办呢 2017/3/21-2017/3/28，后面还有2017/3/29-2017/4/4，我想显示每段日期的开头的日期，比如2017/3/21-2017/3/28，显示2017/3/21，2017/3/29-2017/4/4显示2017/3/29

小葵1124

一把小刀闯天下 发表于 2018-6-11 14:42
'没有日期

Option Explicit

源数据里我改了日期，可以用VBA整理出来吗

小葵1124

小葵1124 发表于 2018-6-11 15:12
日期要怎么办呢 2017/3/21-2017/3/28，后面还有2017/3/29-2017/4/4，我想显示每段日期的开头的日期，比如 ...

我想到了 日期可以用函数来做 谢谢大神 谢谢~

小葵1124

一把小刀闯天下 发表于 2018-6-11 14:42
'没有日期

Option Explicit

谢谢~ 日期我已经想到怎么做了 谢谢

一把小刀闯天下

小葵1124 发表于 2018-6-11 15:45
源数据里我改了日期，可以用VBA整理出来吗

在n=n+1下面插入一行：

brr(n, 1) = Split(Split(arr(j, 1), "竞店入店来源对比-")(1), "_")(0)

小葵1124

一把小刀闯天下 发表于 2018-6-11 15:58
在n=n+1下面插入一行：

brr(n, 1) = Split(Split(arr(j, 1), "竞店入店来源对比-")(1), "_")(0)

晚上看了一下你写的代码，不理解pos=split(“3-2 4-3 5-4 6-5 7-6.......16-13”)
这个是什么意思呢？