VBA -应用插入行的自动填充(基于输入框)，并将其应用于其他工作表

Sub InsertAndFill()
    Dim ws As Worksheet
    Dim inputRow As Integer
    Dim fillValue As String
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 弹出输入框，获取要插入行的位置
    inputRow = InputBox("请输入要插入行的位置：")
    
    ' 在指定位置插入新行
    ws.Rows(inputRow).Insert Shift:=xlDown
    
    ' 弹出输入框，获取要填充的数据
    fillValue = InputBox("请输入要填充的数据：")
    
    ' 填充数据到插入的行中
    ws.Cells(inputRow, 1).Value = fillValue
    
    ' 将填充的数据应用到其他工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then
            ws.Cells(inputRow, 1).Value = fillValue
        End If
    Next ws
End Sub