求助指定某列某行开始输出几个数字

prince939

大灰狼1976 发表于 2024-11-14 13:37

谢谢大佬，谢谢您

gwjkkkkk

I3=

1. =IF($E$2+ROW()-3>$F$2,"",$E$2+ROW()-3)

复制代码

守候_CJ

=SEQUENCE(F2-E2+1,1,E2,1)

yellowhawk

这个肯定用函数快一些，能用函数的，不要用VBA

翁知江安

Sub zhidingshuchu()
Dim i, j, k, m, n
i = Val(InputBox("请输入指定大于3的行号：  "))
If i < 3 Then
MsgBox "第一次警告：您输入的行号有误，请重新输入。还有一次机会。"
i = Val(InputBox("请输入指定大于3的行号：  "))
End If
If i < 3 Then
MsgBox "第二次警告：您输入的行号有误，请重新输入。本次输入错误，将退出程序。"
i = Val(InputBox("请输入指定大于3的行号：  "))
End If
If i < 3 Then
Exit Sub
End If
j = Sheet1.[e2]
k = Sheet1.[f2]
m = k - j
Sheet1.Cells(i, 8) = j
Sheet1.Cells(i, 8).Interior.Color = vbYellow
If m > 0 Then
  For n = 1 To m
    Sheet1.Cells(i + n, 8) = j + n
    Sheet1.Cells(i + n, 8).Interior.Color = vbYellow
  Next
  Else
  If m < 0 Then
    For n = 1 To m * (-1)
     Sheet1.Cells(i + n, 8) = j - n
     Sheet1.Cells(i + n, 8).Interior.Color = vbYellow
    Next
   End If
End If
MsgBox "指定输出完成"
End Sub

翁知江安

以上供参考，欢迎批评指正。

翁知江安

Sub zhidingshuchu()
Dim i, j, k, m, n
i = Val(InputBox("请输入指定大于2的行号：  "))
If i < 3 Then
MsgBox "第一次警告：您输入的行号有误，请重新输入。还有一次机会。"
i = Val(InputBox("请输入指定大于2的行号：  "))
End If
If i < 3 Then
MsgBox "第二次警告：您输入的行号有误，请重新输入。本次输入错误，将退出程序。"
i = Val(InputBox("请输入指定大于2的行号：  "))
End If
If i < 3 Then
Exit Sub
End If
Sheet1.Range("h3:h100").ClearContents
Sheet1.Cells(3, 8).Resize(100, 1).ClearFormats
j = Sheet1.[e2]
k = Sheet1.[f2]
m = k - j
Sheet1.Cells(i, 8) = j
Sheet1.Cells(i, 8).Interior.Color = vbYellow
If m > 0 Then
  For n = 1 To m
    Sheet1.Cells(i + n, 8) = j + n
    Sheet1.Cells(i + n, 8).Interior.Color = vbYellow
  Next
  Else
  If m < 0 Then
    For n = 1 To m * (-1)
     Sheet1.Cells(i + n, 8) = j - n
     Sheet1.Cells(i + n, 8).Interior.Color = vbYellow
    Next
   End If
End If
MsgBox "指定输出完成"
End Sub

翁知江安

增加了清除前次内容的语句。