在excel一列如何填充1,1,2,1,2,3,1,2,3,4.....，类似这样的规律，谢谢各位大佬，急求！

发布网友发布时间：2022-04-28 23:33

我来回答

共3个回答

热心网友时间：2023-10-15 07:40

你这个问题，用VBA比较简单。

首先，电脑中要安装有支持VBA的OFFICE办公软件，WPS Office个人免费版是不支持VBA的，建议用微软的Office。

方法：先看下图：

1、打开一个excel工作簿，按ALT+F11快捷键打开VBA编辑器。

2、在画蓝色方框区域的任意一项上，点右键---插入模块。

3、点击模块，在右键输入代码。

4、点击画红色圆圈的按钮，就会执行代码，在A列生成数据。

Sub 生成数列()

Dim i%, s%

For i = 1 To 6 '最大数6，可修改此数

For s = 1 To i

Range("A" & Rows.Count).End(3).Offset(1, 0) = s '写入A列，可修改此字母

End Sub

热心网友时间：2023-10-15 07:41

'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function cs(a As String)
N = 1
L:
For I = 1 To 100
T = T & " " & I
If I = N Then
N = N + 1
I = 1
GoTo L
End If
Next
b = Split(T, " ")
cs = b(a)
End Function

热心网友时间：2023-10-15 07:41

第一个1需要手动输入。
A1输入1
A2输入
=IF((A1=MAX(A$1:A1))*COUNTIF(A$1:A1,MAX(A$1:A1))=1,1,A1+1)
下拉