"SUM" columns if specific characters are same

Panoos64 · Jan 18, 2019

Hi all, I would like to use a VBA code so that to “SUM” the rows from col. “B” to “N” if the left 7 characters in col. “A” are same. I present below the original data and expected result. Thank you all in advance

Original data

	A	B	C	D	E	F….	N
4		January	February	March	April	……	TOTALS
5	2020010-EMPL 10	2050	2050	2050	2100	……	8250
6	2020020-EMPL 20	1750	1750	1780	1800	……	7080
7	2020010-EMPL 12	250	300	210	320	……	1080

Expected result

	A	B	C	D	E	F….	N
4		January	February	March	April	……	TOTALS
5	2020010-EMPL 10	2300	2350	2260	2420	……	9330
6	2020020-EMPL 20	1750	1750	1780	1800	……	7080

Scott T · Jan 18, 2019

Book1

A

B

C

D

E

F

G

4

January

February

March

April

TOTALS

5

2020010-EMPL 10

2,050.00

2,100.00

8,250.00

6

2020020-EMPL 20

1,750.00

1,780.00

1,800.00

7,080.00

7

2020010-EMPL 12

250.00

300.00

210.00

320.00

1,080.00

8

9

10

2020010-EMPL 10

11

2020020-EMPL 20

Sheet1

Cell Formulas
Range	Formula
B10	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A10,7)),B$5:B$7)
B11	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A11,7)),B$5:B$7)
C10	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A10,7)),C$5:C$7)
C11	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A11,7)),C$5:C$7)
D10	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A10,7)),D$5:D$7)
D11	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A11,7)),D$5:D$7)
E10	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A10,7)),E$5:E$7)
E11	=SUMPRODUCT(--(LEFT($A$5:$A$7,7)=LEFT($A11,7)),E$5:E$7)
G10	=SUM(B10:E10)
G11	=SUM(B11:E11)

Panoos64 · Jan 18, 2019

Hi Scott, the formula is worked, but is there any way to use VBA? I would like the code to run through col. "A" and where find codes which are matching the 7 left characters, should "SUM" the amounts from col. "B" till col. "N" (for each month) and appears only the row with "SUM".
However thank you for your support. Hv a great day

Scott T · Jan 18, 2019

Yes this can be done by VBA. I am not clear on where the results should be placed. Column B to N is 13 columns since it is one for each month then should it not be B to M?

Fluff · Jan 18, 2019

How about

Code:

Sub panoose64()
   Dim Cl As Range
   Dim Vu As String
   Dim a(1 To 14) As Variant
   Dim i As Long
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A5", Range("A" & Rows.Count).End(xlUp))
         Vu = Left(Cl.Value, 7)
         If Not .Exists(Vu) Then
            .Add Vu, Application.Index(Cl.Resize(, 14), 1, 0)
         Else
            a(1) = .Item(Vu)(1)
            For i = 2 To 14
               a(i) = .Item(Vu)(i) + Cl.Offset(, i - 1).Value
            Next i
            .Item(Vu) = a
         End If
      Next Cl
      Sheets("Sheet2").Range("a2").Resize(.Count, 14).Value = Application.Index(.Items, 0, 0)
   End With
End Sub

Panoos64 · Jan 21, 2019

Is great job Fluff !! Is what i was required. Thank you so much for your support and your time once again. Hv a great, lovely day

Fluff · Jan 21, 2019

You're welcome & thanks for the feedback

"SUM" columns if specific characters are same

Panoos64

Well-known Member

Excel Facts

Scott T

Well-known Member

Panoos64

Well-known Member

Scott T

Well-known Member

Fluff

MrExcel MVP, Moderator

Panoos64

Well-known Member

Fluff

MrExcel MVP, Moderator

Similar threads

Forum statistics

Share this page

"SUM" columns if specific characters are same

Panoos64

Well-known Member

Excel Facts

Scott T

Well-known Member

Panoos64

Well-known Member

Scott T

Well-known Member

Fluff

MrExcel MVP, Moderator

Panoos64

Well-known Member

Fluff

MrExcel MVP, Moderator

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock