有奖答题：快速复制序列111222333（已结束）

bjhuangchuanqu · 发表于 2012-5-21 13:16

1.在单元格依次输入1 1 1 2 2 2
2.选中这六个单元格，把鼠标放在选中区域的右下角，当鼠标变成“+”是，按住鼠标不放往下拖动即可。

蝴蝶翅膀 · 发表于 2012-5-21 13:18

本帖最后由蝴蝶翅膀于 2012-5-21 13:20 编辑

A1=1
A2=IF(COUNTIF($A$1:$A1,$A1)<3,A1,$A1+1)
然后向下复制

bjhuangchuanqu · 发表于 2012-5-21 13:18

居然不行，呵呵……那就用自定义序列吧。

蝴蝶翅膀 · 发表于 2012-5-21 13:24

A1=1
A2=A1
A3=A2
A4=A3+1
选中A2:A4复制,向下粘贴

那么的帅 · 发表于 2012-5-21 13:27

bjhuangchuanqu · 发表于 2012-5-21 13:32

Sub tianchong()
Dim t As Integer
t = 1
Dim i As Integer
For i = 1 To 99
Cells(i, 1).Value = t
If (i Mod 3 = 0) Then t = t + 1
Next i
End Sub

bjhuangchuanqu · 发表于 2012-5-21 13:33

代码中的99是看你想填充到哪个数，比如你想填充到100，那你就将99改成300，

蝴蝶翅膀 · 发表于 2012-5-21 13:35

本帖最后由蝴蝶翅膀于 2012-5-21 13:56 编辑

抓狂，想知道答案
A1=1
A2=ROW()/3+0.2
复制A2，向下粘贴

sliang28 · 发表于 2012-5-21 13:35

A1:A3 输入1，A4=A1+1 下拉

hoogle · 发表于 2012-5-21 13:35

附件为我的答案！

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