自动填充数字

54cjq

如何在1个单元格中输入数字3，则在另一列单元格中自动输入1至3，如果输入5，则自动输入1-5.

boyuanoffice

=SEQUENCE(A2)

mykitami

=ROW(INDIRECT("1:"&A2))

swl4561255

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$A$2" Then Exit Sub
   
3. If IsNumeric(Target.Value) = False Then Exit Sub
   
4. Range("D2:D" & 65536).ClearContents
   
5. For i = 1 To Target.Value
   
6.   Range("D" & i + 1) = i
   
7. Next
   
8. End Sub
   

复制代码

wlc5201130

1. =IF(ROW(A1)<=$A$2,ROW(A1),"")

复制代码

vba韭菜

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查是否修改了A列的某个单元格
    If Not Intersect(Target, Columns("A")) Is Nothing Then
        On Error GoTo ErrorHandler
        
        ' 获取修改的单元格及其所在行号
        Dim changedCell As Range
        Set changedCell = Intersect(Target, Columns("A"))
        Dim rowNumber As Long
        rowNumber = changedCell.Row
        
        ' 获取A列新输入的数值
        Dim inputNumber As Long
        inputNumber = CLng(changedCell.Value)
        If inputNumber <= 0 Or inputNumber <> Int(inputNumber) Then Exit Sub
        
        ' 清除B列已有内容（如果需要连续填充）
        Range("B" & rowNumber & ":D" & rowNumber).ClearContents
        
        ' 填充序列
        Range("B" & rowNumber).Resize(1, inputNumber).FormulaR1C1 = "=COLUMN()-1"
        
        Exit Sub

ErrorHandler:
        MsgBox "请在A列输入一个正整数。", vbCritical
    End If
End Sub




请参考