任意区域数值减2

无雨谷

求助如何将下面固定区域代码，改为不指定表格、任意选中区域数值来减，谢谢


Sub 减封边值( )
    Dim arr, i&, j%, fbz As Double
    fbz = Application.InputBox("请输入封边值", "封边值", "2", Type:=1)
    If fbz = 0 Then Exit Sub
    arr = Intersect(Sheets("汇总").UsedRange.Offset(3, 0), Columns("i:j"))
    For i = 1 To UBound(arr)
        For j = 1 To 2
            If arr(i, j) <> "" Then arr(i, j) = arr(i, j) - fbz
        Next
    Next
    [i4].Resize(UBound(arr), 2) = arr
End Sub

gwjkkkkk

没有附件，凭想象
Sub 减封边值()
    Dim arr, i&, j%, fbz As Double
    fbz = Application.InputBox("请输入封边值", "封边值", "2", Type:=1)
    If fbz = 0 Then Exit Sub
    With Intersect(ActiveSheet.UsedRange.Offset(3, 0), Columns("i:j"))
        arr = .Value
            For i = 1 To UBound(arr)
                For j = 1 To 2
                    If arr(i, j) <> "" Then arr(i, j) = arr(i, j) - fbz
                Next
            Next
       .Value = arr
    End With
End Sub

无雨谷

gwjkkkkk 发表于 2023-3-14 16:05
没有附件，凭想象
Sub 减封边值()
    Dim arr, i&, j%, fbz As Double

谢谢大师，运行错误变量或with未设置，我改了一下，可以了

无雨谷

目前可以运行，但还不是选择的任意区域。我想达到选择那里减那里，要怎么改呢？ 减数值.rar (15.25 KB, 下载次数: 1)

2023-3-15 09:22 上传

点击文件名下载附件

无雨谷

顶一下，帮帮忙，谢谢

无雨谷

有帮忙的吗？

无雨谷

自己已搞定，谢谢大家