数据大组合的问题

杨小妹

附件 自动识别M列数据并组合.rar (246.54 KB, 下载次数: 3)

2024-4-7 16:06 上传

点击文件名下载附件

谢谢老师！

shiruiqiang

就是
for x =1 to 8
   for i=x+1 to 9

shiruiqiang

Sub test()
Dim arr, brr(1 To 1000000, 1 To 13)
arr = Sheet1.UsedRange
For x = 1 To UBound(arr) - 2
For i = x + 1 To UBound(arr) - 1
n = n + 1
For y = 1 To 13
brr(n, y) = arr(x, y)
Next
n = n + 1
For y = 1 To 13
brr(n, y) = arr(i, y)
Next
n = n + 1

Next
Next
Sheets(2).[a1].Resize(n, 13) = brr
beep
End Sub

杨小妹

shiruiqiang 发表于 2024-4-6 20:11
Sub test()
Dim arr, brr(1 To 1000000, 1 To 13)
arr = Sheet1.UsedRange

老师你好，谢谢帮助。试了一下，如果只有9行数据，可以正常运行，结果正确。如果多一行或几行或少一行或几行，就不行了。

shiruiqiang

杨小妹 发表于 2024-4-6 20:27
老师你好，谢谢帮助。试了一下，如果只有9行数据，可以正常运行，结果正确。如果多一行或几行或少一行或 ...

shiruiqiang

改一下，应该没错了

杨小妹

shiruiqiang 发表于 2024-4-6 20:41
改一下，应该没错了

老师你好，实际工作中，有时候是3行，有时候是6行，有时候是9行，有时候是16行，有时候是20行，仔细看了很久，看不出哪个地方可以修改参数。

cnmlgb9998

楼主，你这题，昨天不是发过一个差不多的吗？今天怎么又发一个同类型的？？？？

cnmlgb9998

这是昨天那题，都给你解答了，今天，你又搞个一模一样的题，就是把 4行 改成 2行！！！！

杨小妹

cnmlgb9998 发表于 2024-4-6 22:09
这是昨天那题，都给你解答了，今天，你又搞个一模一样的题，就是把 4行 改成 2行！！！！

老师你好，如果是一模一样的，我早就改好了。如果改为昨天那个， 9行，只能组合为8组。现在9行，要求循环组合成36组。不是随便就能改的。