嘿Alex，我懂你要的是什么——要给那种看似数字但必须保持文本格式的内容生成递增序列，拖拽单元格就能自动往下续上201803281、201803282…直到2018032810、2018032811对吧？给你两个靠谱的方案，按需选就行：

这个方法最简单，直接在第一个单元格里输入公式，拖拽就能生成序列，而且天生就是文本格式：

="20180328"&ROW(A1)

• 原理："20180328"是你固定的前缀文本，ROW(A1)会随着你拖拽的行数自动递增（第一行是1，第二行是2，以此类推），两者拼接出来的结果自然就是文本格式的序列。
• 如果你的序列不是从第一行开始，比如从第5行开始，把ROW(A1)改成ROW(A5)-4就行，这样初始数字还是1。
• 要是前缀存在其他单元格里（比如A1单元格存着"20180328"），公式可以改成=A1&ROW(A1)，更灵活。

如果你需要经常生成不同前缀的这类序列，或者要批量填充一大片区域，写个简单的VBA宏会更方便：

1. 按Alt+F11打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 把下面的代码粘贴进去：

Sub GenerateTextSequence()
    Dim prefix As String
    Dim startNum As Integer
    Dim rng As Range
    Dim i As Integer
    
    ' 获取用户输入的前缀和起始数字
    prefix = InputBox("请输入序列的固定前缀（例如：20180328）：")
    startNum = InputBox("请输入起始数字（例如：1）：")
    
    ' 检查是否选择了单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选择要生成序列的单元格区域！", vbExclamation
        Exit Sub
    End If
    
    Set rng = Selection
    
    ' 遍历选中区域生成序列并设置文本格式
    For i = 0 To rng.Cells.Count - 1
        rng.Cells(i + 1).Value = prefix & (startNum + i)
        rng.Cells(i + 1).NumberFormat = "@" ' 强制设为文本格式
    Next i
End Sub

4. 按F5运行宏，输入你的前缀（比如20180328）和起始数字（比如1），再确认你已经选中了要填充的单元格区域，就能自动生成序列了。

这个脚本会强制把单元格格式设为文本，完全不用担心数字过长变成科学计数法的问题~

内容的提问来源于stack exchange，提问作者Alwexistwo