区间段数值，按步长为1，怎么拆成多行？

熊和猴子

求助各位大佬们：怎么把区间段数值拆分成多行，如果是在Excel里面用数据连接然后写SQL语句，能不能实现？代码怎么写？实在不会在SQL里面加循环，这好像还得定义变量，可是Excel里面写SQL完全不知道在哪加。各种百度各种豆包都解决不了




因为公司的电脑是加密的，无法上传表格(＞人＜；)对不起

假设表名为：表1

字段1	字段2	初始值	终止值
某某	某某	400	401
某某	某某	800	802

要求样式：

字段1	字段2	值
某某	某某	400
某某	某某	401
某某	某某	800
某某	某某	801
某某	某某	802

小凡、、、

大概是这个意思吧

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 7)
   
4.     ReDim brr(1 To 10000, 1 To 6)
   
5.     For i = 2 To UBound(arr)
   
6.         For x = arr(i, 6) To arr(i, 7)
   
7.             m = m + 1
   
8.             For j = 1 To 5
   
9.                 brr(m, j) = arr(i, j)
   
10.             Next
    
11.             brr(m, 6) = x
    
12.         Next
    
13.     Next
    
14.     [j2].Resize(m, 6) = brr
    
15. End Sub
    

复制代码

熊和猴子

小凡、、、 发表于 2024-7-31 14:30
大概是这个意思吧

感谢大佬，，又学到一个小技能，已拿小本本记下来。

熊和猴子

ykcbf1100 发表于 2024-7-31 14:49
参与一下。。。

谢谢大神，请受小弟一拜

一招秒杀

ykcbf1100 发表于 2024-7-31 14:49
参与一下。。。

1句全搞定，简单到不要不要的。

ykcbf1100

一招秒杀 发表于 2024-7-31 20:05
1句全搞定，简单到不要不要的。

挺好。。。。