一列数据包含周数及每周七天七个值，让各周数和其七个值组成各行

你这个比较规律函数做很容易。如果每周的数据不固定的话，还是用VBA代码还是方便一点。这里模拟数据不管你一周几个值，如图:

模拟数据在第一列，结果从第三列开始存放，实际应用代码请注意位置关系，适当修改代码。按ALT+F11，再按ALI+I，再按M，复制以下代码：
Sub mynum()
Dim arr, brr, temp, i&, n&, t&, r&
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:a" & r + 1)
For i = 1 To UBound(arr) - 1
If InStr(arr(i, 1), "-") > 0 Then
t = t + 1
Do
n = n + 1
Loop Until InStr(arr(i + n, 1), "-") > 0 Or arr(i + n, 1) = ""
brr = Range(Cells(i + 1, 1), Cells(i + n + 1, 1))
ReDim temp(1 To n)
For j = 1 To n
If j = 1 Then
temp(j) = Val(Right(brr(j, 1), 2))
Else
temp(j) = brr(j, 1)
End If
Next
Cells(t + 1, "c").Resize(, n) = temp
n = 0
End If
Next
End Sub