简单数据组合的问题

谢玉红 · 发表于 2022-12-29 09:41

本帖最后由谢玉红于 2022-12-29 10:02 编辑

附件

数据组合.rar (231.41 KB, 下载次数: 15)

谢谢老师！

liulang0808 · 发表于 2022-12-29 09:58

。。。。。。。。。。。。。。

shiruiqiang · 发表于 2022-12-29 10:08

那最后5个怎么办？

ykcbf1100 · 发表于 2022-12-29 10:22

是这意思吗？

gwjkkkkk · 发表于 2022-12-29 10:25

Sub TEST()
Dim arr, vData, i&, j&, n&
arr = Range([A1], Cells(Rows.Count, "M").End(xlUp))
n = UBound(arr) - 5
ReDim vData(1 To n * 3, 1 To UBound(arr, 2))
For i = 1 To n
      For j = 1 To UBound(arr, 2)
         vData((i - 1) * 3 + 1, j) = arr(i, j)
         vData((i - 1) * 3 + 2, j) = arr(i + 5, j)
      Next j
Next i
With Sheets(2)
.Cells.Clear
.[A1].Resize(UBound(vData), UBound(vData, 2)) = vData
End With
Beep
End Sub

gwjkkkkk · 发表于 2022-12-29 10:27

纯数组，请楼主参考附件。。。

笨鸟飞不高 · 发表于 2022-12-29 10:27

数据组合.zip (757.14 KB, 下载次数: 3)

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

[已解决] 简单数据组合的问题

评分

评分

评分

评分

评分