Makro untuk melanjutkan ke sel berikutnya hingga nilainya tidak cocok dan untuk semua nilai yang serupa, kurangi nilai dari baris paling bawah

Pada dasarnya data saya seperti ini (Hanya ada satu pembelian untuk setiap nama dan itu adalah sel paling bawah)

Name |   Transaction.Type |  Amount | Remaining (what macro needs to do)       

Name1 |      Sell  |         5    |     15 (20-5)

Name1  |    Sell    |       10     |      10 (20-10)

Name1   |   Sell     |      15     |     5  (20-15)

Name1   |   Buy    |        20       |

Name2  |    Sell    |       25      |      5

Name2   |   Buy     |       30        |

Sejauh ini makro saya terlihat seperti

Dim sline As Integer
Dim eline As Integer
Dim rng As Range
Dim lastrow(1 To 3) As Long
Application.DisplayAlerts = False

With Worksheets("Testing Data 2")
lastrow(1) = .Cells(Rows.Count, "A").End(xlUp).Row
End With


 For i = 2 To 4151
   If Worksheets("Testing Data 2").Range("A" & i) <> Worksheets("Testing Data 2").Range("A" & i).Offset(1, 0) Then
    eline = i

    Worksheets("Testing Data 2").Range(":C" & eline)        

    'struggling to go from here

    End If
 Next i
 Application.DisplayAlerts = True
0
Piccinin1992 28 Februari 2020, 22:29

1 menjawab

Jawaban Terbaik

Anda dapat melakukan ini tanpa VBA dengan pemahaman bahwa setiap Name hanya memiliki satu instance Buy

=SUMIFS(C:C,A:A,A3,B:B,"Buy")-C2      'Drag down as needed

enter image description here

1
urdearboy 28 Februari 2020, 19:52