how to substract merged columns and result would be also in merged cells.

[Shaikh Aziz]

Dear Everyone,

I have below general query, i have some merged numerice values in ColumnK & ColumnO and i want to substract columnO - ColumnK = ColumnP merged output should be comes in columnP, as please note i have actual vba data set and i have to append future suggested codes into that actual data set.

Please find attached screenshot for better understanding the query.

and thankyou for lookin

and PFB cross-posted links, as still finding for an answer

how to substract merging cells [SOLVED]

Dear Everyone, I have below general query, i have some merged numerice values in ColumnK & ColumnO and i want to substract columnO - ColumnK = ColumnP merged output should be comes in columnP, kindly suggest me vba code. Please find attached for better understanding the query. and...

www.excelforum.com

 

[maabadi]

Try this:

Sub CalculateMerged3rows()
    Dim Lr As Long
    Dim i As Long
Lr = Cells(Rows.Count, 11).End(xlUp).Row + 3
For i = 1 To Lr / 3
Range("P" & i * 3 - 2).Value = Range("O" & i * 3 - 2).Value - Range("K" & i * 3 - 2).Value
Next i
End Sub

 

[Shaikh Aziz]

Try this:

Sub CalculateMerged3rows()
    Dim Lr As Long
    Dim i As Long
Lr = Cells(Rows.Count, 11).End(xlUp).Row + 3
For i = 1 To Lr / 3
Range("P" & i * 3 - 2).Value = Range("O" & i * 3 - 2).Value - Range("K" & i * 3 - 2).Value
Next i
End Sub

thankyou so much

 

[maabadi]

You 're welcome & thanks for feedback.

 

[maras]

Try

Sub test()
    Dim a1, a2, af
    
    With Sheets("Sheet1")
        With .[k1].CurrentRegion
            a1 = .Offset(1).Resize(.Rows.Count - 1).Value
        End With
        With .[o1].CurrentRegion
            a2 = .Offset(1).Resize(.Rows.Count - 1).Value
        End With
        ReDim af(1 To UBound(a1))
        For i = 1 To UBound(a1)
            If a1(i, 1) <> "" Then
                af(i) = a2(i, 1) - a1(i, 1)
            End If
        Next
        .[p2].Resize(UBound(a1)) = Application.Transpose(af)
    End With
End Sub

 

[Shaikh Aziz]

Try

Sub test()
    Dim a1, a2, af
   
    With Sheets("Sheet1")
        With .[k1].CurrentRegion
            a1 = .Offset(1).Resize(.Rows.Count - 1).Value
        End With
        With .[o1].CurrentRegion
            a2 = .Offset(1).Resize(.Rows.Count - 1).Value
        End With
        ReDim af(1 To UBound(a1))
        For i = 1 To UBound(a1)
            If a1(i, 1) <> "" Then
                af(i) = a2(i, 1) - a1(i, 1)
            End If
        Next
        .[p2].Resize(UBound(a1)) = Application.Transpose(af)
    End With
End Sub

thankyou so much it's something very new to learn & practice and it's worked. thankyou so much