Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何创建以零结尾的数字开始的序列?_Excel_Vba - Fatal编程技术网

Excel 如何创建以零结尾的数字开始的序列?

Excel 如何创建以零结尾的数字开始的序列?,excel,vba,Excel,Vba,样本如下所示: 12341 12342 12343 12344 12345 12346 12347 12348 12349 12350 如果您要求序列以零开始,则应更改For。。下一个循环如下:- For i = 0 To (Repeats - 1) If i Then R = R + 1 .Rows(R).EntireRow.Insert Shift:=xlUp End

样本如下所示:

12341 12342 12343 12344 12345 12346 12347 12348 12349 12350
如果您要求序列以零开始,则应更改For。。下一个循环如下:-

    For i = 0 To (Repeats - 1)
        If i Then
            R = R + 1
            .Rows(R).EntireRow.Insert Shift:=xlUp
        End If
        .Cells(R, NwsSerial).Value = Series * 10 + i
    Next i

要澄清…是否希望序列结束…12348、12349、12340?添加此代码选项Explicit Enum Nws'行和列NwsFirstDataRow=2'=1标题行(根据需要调整)NwsStart=1'1=列A(根据需要调整)NwsEnd‘no value=previous+1 NwsSerial End enum要使您的要求有意义,您必须提供
系列
重复
的值,这将导致结果“12341 12342 12343 12344 12345 12346 12347 12348 12349 12350”。假设
Series=1234
Repeats=10
,那么您希望使用什么结果来代替您引用的结果?事实上,我认为现有代码会产生类似“123411234212343123441234512346123471234812349123410”的结果。对不起(仓促编辑)。代码确实产生了您提到的序列,但我想知道您是否真的想要在结尾处带有10的序列。很抱歉,起初我还认为我需要的是结尾处的10,但我意识到我应该需要的是0到9的序列。但是代码帮助很大。