excel的问题,跪求大神帮忙。。。谢谢

发布网友发布时间：2023-11-07 08:17

我来回答

共4个回答

热心网友时间：2024-10-29 23:53

1、添加三个辅助列，分别输入以下公式，然后向下填充公式

=--LEFT(A2,3)

=--RIGHT(A2,3)

=C2-B2

2、然后输入以下公式，向右向下填充公式

=IF(ROW(A1)-1>OFFSET($D$2,COLUMN(A1)-1,),"",OFFSET($B$2,COLUMN(A1)-1,)+ROW(A1)-1)

热心网友时间：2024-10-29 23:53

告诉你一个很好的方法，这种方法适合向下拉的大数据比如1---2000等

第一步：在A1输入1，A2输入=A1+1。

第二步，按下ctrl+G，打开定位对话框，在引用位置框中输入：A2000:A2，确定。

第三步，按下快捷键ctrl+D。

热心网友时间：2024-10-29 23:53

C1公式：
=IF(ROW(A1)<=-LOOKUP(,-RIGHT(INDIRECT("A"&SUM(COLUMN(A1))),ROW($1:$10))),LEFT(INDIRECT("A"&COLUMN(A1)),FIND("-",INDIRECT("A"&COLUMN(A1)))-1)+ROW(A1)-1,"")
右拉，下拉。

热心网友时间：2024-10-29 23:54

用VBA快速解决：

Sub fill()

Set sh = ActiveSheet
Column = 3 '从第三列开始
For i = 1 To 10
    '如果A列单元格是空,就结束
    If sh.Cells(i, 1) = "" Then
        Exit For
    Else
        '获取起始和结束数
        rg = sh.Cells(i, 1)
        rg = Split(rg, "-")
        start_num = rg(0)
        end_num = rg(1)
        ' 开始填充
        For j = 1 To (end_num - start_num + 1)
            sh.Cells(j, Column) = start_num + j - 1
        Next j
        Column = Column + 1
    End If
Next i

End Sub