Question

excel问题，输入一个范围，然后在另一列自动列出这个范围的所有值？

要求吧不用手动下拉，直接输入开始和结束，在目标列自动按顺序列出所有范围内的值

Answer 1

如图：（公式会根据D2和E2给定的文本内容和数字，自动生成A列）

A4公式：

=IF(-LOOKUP(1,-RIGHT(D$2,ROW($1:$10)))+ROW(A1)-1<=-LOOKUP(1,-RIGHT(E$2,ROW($1:$10))),SUBSTITUTE(D$2,-LOOKUP(1,-RIGHT(D$2,ROW($1:$10))),"")&-LOOKUP(1,-RIGHT(D$2,ROW($1:$10)))+ROW(A1)-1,"")

下拉。

Answer 2

A4＝D2
A5=if(and((--mid(a4,3,len(a4)-2))>=(--mid(e$2,3,len(e$2)-2))),a4=""),"",mid(a4,1,2)&(--mid(a4,3,len(a4)-2))+1)
A5公式一直下拉足够数量单元格。

Answer 3

'ALT+F11,双击左边的工作表名称，比如Sheet1（Sheet1），在右边的代码栏粘贴以下代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kt As String
Dim Ks As Integer
Dim Js As Integer
Dim j As Integer
If Target.Row = 2 And (Target.Column = 4 Or Target.Column = 5) Then '只有D2或E2发生变动时才执行

Rows("4:1000").Delete Shift:=xlUp '清除原数据
j = 4
Kt = Left(Range("d2"), 2) '根据实际情况修改，这里是前2个字符
Ks = --Right(Range("d2"), Len(Range("d2")) - Len(Kt))
Js = --Right(Range("e2"), Len(Range("e2")) - Len(Kt))
If Js >= Ks Then
For i = Ks To Js
Cells(j, 1) = Kt & i
j = j + 1
Next i
End If
End If
End Sub