VBA 计算差值

On_fire

liulang0808 发表于 2022-12-19 15:48
按照模拟结果猜的，代码结果再11行

完美!
感谢版主...

笨鸟飞不高

Diff.zip (18.48 KB, 下载次数: 3)

2022-12-19 16:03 上传

点击文件名下载附件

剑指E

1. Sub test()
   
2.     Dim rgs As Range, c As Range
   
3.     Set rgs = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(27, 7), Sheets("Sheet1").Cells(27, Columns.Count).End(xlToLeft))
   
4.     For Each c In rgs
   
5.         c(-14) = Format(c.Column - 6 - c(0).MergeArea(1), "'+0;'-0;""""")
   
6.     Next
   
7. End Sub
   

复制代码

gwjkkkkk

On_fire 发表于 2022-12-19 15:50
老师好,
比如 :K列,27行的9的位值 = 5 ( 标绿红字 )26行的9的分组号 = 3 ( 合并格 )5 – 3 = 2 ( K列9的 ...

Sub TEST()
    Dim arr, brr, i&, j&, iNum&
    arr = Range("G26:T27")
    ReDim brr(1 To 1, 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 2)
        If arr(1, i) <> "" Then iNum = arr(1, i)
        If arr(2, i) <> "" Then
           brr(1, i) = IIf(i - iNum = 0, "", "'+" & (i - iNum))
        End If
    Next i
    With [G12].Resize(, UBound(brr, 2))
         .Value = brr
         .Font.Bold = True
         .Font.Color = vbRed
    End With
    Beep
End Sub

gwjkkkkk

On_fire 发表于 2022-12-19 15:50
老师好,
比如 :K列,27行的9的位值 = 5 ( 标绿红字 )26行的9的分组号 = 3 ( 合并格 )5 – 3 = 2 ( K列9的 ...

请楼主参考附件。。。