Excel填充问题（很复杂也很简单）

来源：百度知道 编辑：UC知道 时间：2024/09/24 08:26:21
比如说： 00001000，00001001，00001002，00001003，00001010，00001011，00001012，00001013，00001020，00001021，00001022，00001023，00001030，00001031，00001032，00001033，00001100，00001101，00001102，00001103，00001110，…………，…………，00003333，00010000。
这样的顺序。有什么方法能简单点填充出来。
一个个打超级超级慢。
谢谢。
谢谢各位的回答。非常感谢。我现在有几万多个这样排着的数字需要打出来。
但是第一楼的，宏，我不太了解。该怎样用，可以给我说说吗？
这些数字说没有规律也有规律，就比如您只学了0123几个数，没学456789几个数。 0、1、2、3、10、11、12、13、20、21、22、23、30这样的顺序。就把3当9。

第七楼的necrolin大叔。您狠行！
不过那代码我粘贴后，照您的指点做了，但拖出来的数字都不符合我的顺序和要求，看不懂。
我是要从00001000一直打到33333333。
而顺序就是我上面说的那样。
00001000，00001001，00001002，00001003，00001010，00001011，00001012，00001013，00001020，00001021，00001022，00001023，00001030，00001031，00001032，00001033，00001100。
这样一直到33333333。如果遇到00003333，接着就是00010000。然后个位再循环着0，1，2，3。
而且使用自动填充工具，又只能拉到3。慢慢慢！
四进制的转移问题？好像听过。不太熟悉。
帮我想想办法。 哦，那显示出来的有我要的数字，但顺序不对。 而且又无法到外复制粘贴的。
拷贝的地方没错。 我要顺序。

你的例子就是一个四进制的转换问题，另外如果不满8位的话作前端补0处理。
用excel标准函数会很难，但自定义一个函数就方便得很了。
Alt + F11打开VBA窗口，插入模块，粘帖下面的代码。

Function Convert4(inum As Long)
Dim m As Integer
Dim rsl As String
On Error GoTo err

Do
m = inum Mod 4
rsl = m & rsl
inum = (inum - m) / 4
Loop Until inum = 0
If Len(rsl) >= 8 Then
Convert4 = rsl
Else
Convert4 = String(8 - Len(rsl), "0") & rsl
End If
err:
End Function

使用时，假设从A1往下开始输入64，65，66...
在B1输入公式并往下填充就可以得到你要的序列值。
=Convert4(A1)

回复：
结果不对？那你的结果大概是什么？我是调试过的。
另外一点：代码拷贝地方没有搞错吧？应该是ALT+F11调出VBA窗口后，点菜单的插入，模块。在模块里粘帖代码。
有问题的话再问吧。

比方,你要在A列输入如上数据,首先,你要把A列的单元格式设为文本,然后在A1输入00001000 A2输入00001001,然后把A1 A2选中,把鼠标放在右下,黑十字出来,左键点着一直往下拉就OK了

选设置单元格格式为自定义格式，在右侧的格式框中输入00000000就可以了。输入好以后就可以托动复制了。

现在第一行输入00001000，然后你能看见你的输入框下面有个小黑点，吧鼠标移上去，看小小十字，鼠标左键按住后下拉