vba help

W

winde

New Member
Joined
Nov 27, 2018
Messages
32
I have an issue on hand whereby the format of the data is not usable for pivot.

Current format
[TABLE="width: 500"]
<tbody>[TR]
[TD]Header 1[/TD]
[TD]Header 2[/TD]
[TD]Header 3[/TD]
[TD]Header 4[/TD]
[TD]Header 5[/TD]
[TD]March 2018 Quantity[/TD]
[TD]March 2018 Value[/TD]
[TD]April 2018 Quantity[/TD]
[TD]April 2018 Value[/TD]
[TD]May 2018 Quantity[/TD]
[TD]May 2018 Value[/TD]
[TD]June 2018 Quantity[/TD]
[TD]June 2018 Value[/TD]
[TD]July 2018 Quantity[/TD]
[TD]July 2018 Value[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]10[/TD]
[TD]10[/TD]
[TD]20[/TD]
[TD]20[/TD]
[TD]30[/TD]
[TD]30[/TD]
[TD]40[/TD]
[TD]40[/TD]
[TD]50[/TD]
[TD]50[/TD]
[/TR]
</tbody>[/TABLE]

Requested Format
[TABLE="width: 500"]
<tbody>[TR]
[TD]Header 1[/TD]
[TD]Header 2[/TD]
[TD]Header 3[/TD]
[TD]Header 4[/TD]
[TD]Header 5[/TD]
[TD]Month[/TD]
[TD]Year[/TD]
[TD]Quantity[/TD]
[TD]Value[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]Mar[/TD]
[TD]2018[/TD]
[TD]10[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]Apr[/TD]
[TD]2018[/TD]
[TD]20[/TD]
[TD]20[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]May[/TD]
[TD]2018[/TD]
[TD]30[/TD]
[TD]30[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]Jun[/TD]
[TD]2018[/TD]
[TD]40[/TD]
[TD]40[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]Jul[/TD]
[TD]2018[/TD]
[TD]50[/TD]
[TD]50[/TD]
[/TR]
</tbody>[/TABLE]


May i know if there is any VBA code to do this?

Thanks
 

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop
Sort by date Sort by votes
Is your data laid out EXACTLY as below?
- columns A to O
- headers in row1
- data starts in A2,
- no merged cells

If not please explain layout fully
thanks

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]
A​
[/th][th]
B​
[/th][th]
C​
[/th][th]
D​
[/th][th]
E​
[/th][th]
F​
[/th][th]
G​
[/th][th]
H​
[/th][th]
I​
[/th][th]
J​
[/th][th]
K​
[/th][th]
L​
[/th][th]
M​
[/th][th]
N​
[/th][th]
O​
[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
1​
[/td][td]Header 1[/td][td]Header 2[/td][td]Header 3[/td][td]Header 4[/td][td]Header 5[/td][td]March
2018
Quantity[/td][td]March
2018
Value[/td][td]April
2018
Quantity[/td][td]April
2018
Value[/td][td]May
2018
Quantity[/td][td]May
2018
Value[/td][td]June
2018
Quantity[/td][td]June
2018
Value[/td][td]July
2018
Quantity[/td][td]July
2018
Value[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
2​
[/td][td]a[/td][td]b[/td][td]c[/td][td]d[/td][td]e[/td][td]
10​
[/td][td]
10​
[/td][td]
20​
[/td][td]
20​
[/td][td]
30​
[/td][td]
30​
[/td][td]
40​
[/td][td]
40​
[/td][td]
50​
[/td][td]
50​
[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Sheet6[/td][/tr][/table]
 
Upvote 0
Yongle said:
Is your data laid out EXACTLY as below?
- columns A to O
- headers in row1
- data starts in A2,
- no merged cells

If not please explain layout fully
thanks

Excel 2016 (Windows) 32 bit
[TABLE="class: head"]
<tbody>[TR="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=E0E0F0]#E0E0F0[/URL] "]
[TH][/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]A[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]B[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]C[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]D[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]E[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]F[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]G[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]H[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]I[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]J[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]K[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]L[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]M[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]N[/COLOR]​
[/TH]
[TH]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]O[/COLOR]​
[/TH]
[/TR]
[TR="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] "]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=E0E0F0]#E0E0F0[/URL] "]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]1[/COLOR]​
[/TD]
[TD]Header 1[/TD]
[TD]Header 2[/TD]
[TD]Header 3[/TD]
[TD]Header 4[/TD]
[TD]Header 5[/TD]
[TD]March
2018
Quantity[/TD]
[TD]March
2018
Value[/TD]
[TD]April
2018
Quantity[/TD]
[TD]April
2018
Value[/TD]
[TD]May
2018
Quantity[/TD]
[TD]May
2018
Value[/TD]
[TD]June
2018
Quantity[/TD]
[TD]June
2018
Value[/TD]
[TD]July
2018
Quantity[/TD]
[TD]July
2018
Value[/TD]
[/TR]
[TR="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] "]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=E0E0F0]#E0E0F0[/URL] "]
[COLOR=[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFFFF]#FFFFFF[/URL] ]2[/COLOR]​
[/TD]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[TD]
10​
[/TD]
[TD]
10​
[/TD]
[TD]
20​
[/TD]
[TD]
20​
[/TD]
[TD]
30​
[/TD]
[TD]
30​
[/TD]
[TD]
40​
[/TD]
[TD]
40​
[/TD]
[TD]
50​
[/TD]
[TD]
50​
[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="class: grid"]
<tbody>[TR]
[TD]Sheet: Sheet6[/TD]
[/TR]
</tbody>[/TABLE]
Click to expand...


My data layout is as follow.

Column A - AJ
Header - Row 1
data starts from Row 2 to 9408
no merge cells but have empty cells

Thanks.
 
Upvote 0
Test this on a copy of your workbook
- amend only the SheetName for the first test
(the first test is limited to the first few rows and months)

If first test gives you what you want
- amend the number of months to match your data Const HowManyMonths = 5
- delete this line lrA = 6

Place code in a standard module and amend SheetName (name of sheet containing your data)
Code: 
Option Explicit

Sub ReShapeData()
    Call Optimise(True, xlManual)
Variables:
    Const Origin = "[COLOR=#ff0000][I]SheetName[/I][/COLOR]"
    Const HowManyMonths = [COLOR=#008080]5[/COLOR]
    Dim wsA As Worksheet, wsB As Worksheet
    Dim MonthYear As String, ColHeader As String
    Dim rA As Long, lrA As Long, aMonth As Long, aCol As Long, rngB As Range
    Set wsA = Sheets(Origin)
Add_Sheet:
    Set wsB = Worksheets.Add(before:=wsA)
    wsA.Range("A1:E1").Copy wsB.Range("A1")
    wsB.Range("F1:i1") = Array("Month", "Year", "Quantity", "Value")
Loop_Data:
    lrA = wsA.Cells(Rows.Count, 1).End(xlUp).Row
    [COLOR=#008080]lrA = 6[/COLOR]
    For rA = 2 To lrA
    'columns A:E
        aCol = 5
        wsA.Cells(rA, 1).Resize(, 5).Copy
        Set rngB = wsB.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(HowManyMonths)
        With rngB
            .PasteSpecial (xlPasteValues)
            .PasteSpecial (xlPasteFormats)
        End With
[I][COLOR=#006400]    'month, year, quantity and value[/COLOR][/I]
        For aMonth = 1 To HowManyMonths
            aCol = aCol + 2
            ColHeader = wsA.Cells(1, aCol)
            MonthYear = Replace(Replace(Replace(Replace(ColHeader, "Value", ""), Chr(10), ""), "Quantity", ""), " ", "")
            rngB(aMonth, 1).Offset(, 5).Resize(, 2) = Array(Left(MonthYear, 3), Right(MonthYear, 4))
            rngB(aMonth, 1).Offset(, 7).Resize(, 2) = Array(wsA.Cells(rA, aCol - 1), wsA.Cells(rA, aCol))
        Next aMonth
    Next rA
Call Optimise(False, xlAutomatic)
End Sub

Private Sub Optimise(IsTrue As Boolean, Calc)
    With Application
        .ScreenUpdating = Not IsTrue
        .Calculation = Calc
    End With
End Sub
 
Last edited:
Upvote 0
I forgot to include my test data

BEFORE

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]
A​
[/th][th]
B​
[/th][th]
C​
[/th][th]
D​
[/th][th]
E​
[/th][th]
F​
[/th][th]
G​
[/th][th]
H​
[/th][th]
I​
[/th][th]
J​
[/th][th]
K​
[/th][th]
L​
[/th][th]
M​
[/th][th]
N​
[/th][th]
O​
[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
1​
[/td][td]Header 1[/td][td]Header 2[/td][td]Header 3[/td][td]Header 4[/td][td]Header 5[/td][td]March
2018
Quantity[/td][td]March
2018
Value[/td][td]April
2018
Quantity[/td][td]April
2018
Value[/td][td]May
2018
Quantity[/td][td]May
2018
Value[/td][td]June
2018
Quantity[/td][td]June
2018
Value[/td][td]July
2018
Quantity[/td][td]July
2018
Value[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
2​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]
8​
[/td][td]
80​
[/td][td]
10​
[/td][td]
100​
[/td][td]
12​
[/td][td]
120​
[/td][td]
14​
[/td][td]
140​
[/td][td]
16​
[/td][td]
160​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
3​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]
9​
[/td][td]
90​
[/td][td]
11​
[/td][td]
110​
[/td][td]
13​
[/td][td]
130​
[/td][td]
15​
[/td][td]
150​
[/td][td]
17​
[/td][td]
170​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
4​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]
10​
[/td][td]
100​
[/td][td]
12​
[/td][td]
120​
[/td][td]
14​
[/td][td]
140​
[/td][td]
16​
[/td][td]
160​
[/td][td]
18​
[/td][td]
180​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
5​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]
11​
[/td][td]
110​
[/td][td]
13​
[/td][td]
130​
[/td][td]
15​
[/td][td]
150​
[/td][td]
17​
[/td][td]
170​
[/td][td]
19​
[/td][td]
190​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
6​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]
12​
[/td][td]
120​
[/td][td]
14​
[/td][td]
140​
[/td][td]
16​
[/td][td]
160​
[/td][td]
18​
[/td][td]
180​
[/td][td]
20​
[/td][td]
200​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
7​
[/td][td]A7[/td][td]B7[/td][td]C7[/td][td]D7[/td][td]E7[/td][td]
13​
[/td][td]
130​
[/td][td]
15​
[/td][td]
150​
[/td][td]
17​
[/td][td]
170​
[/td][td]
19​
[/td][td]
190​
[/td][td]
21​
[/td][td]
210​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
8​
[/td][td]A8[/td][td]B8[/td][td]C8[/td][td]D8[/td][td]E8[/td][td]
14​
[/td][td]
140​
[/td][td]
16​
[/td][td]
160​
[/td][td]
18​
[/td][td]
180​
[/td][td]
20​
[/td][td]
200​
[/td][td]
22​
[/td][td]
220​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
9​
[/td][td]A9[/td][td]B9[/td][td]C9[/td][td]D9[/td][td]E9[/td][td]
15​
[/td][td]
150​
[/td][td]
17​
[/td][td]
170​
[/td][td]
19​
[/td][td]
190​
[/td][td]
21​
[/td][td]
210​
[/td][td]
23​
[/td][td]
230​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
10​
[/td][td]A10[/td][td]B10[/td][td]C10[/td][td]D10[/td][td]E10[/td][td]
16​
[/td][td]
160​
[/td][td]
18​
[/td][td]
180​
[/td][td]
20​
[/td][td]
200​
[/td][td]
22​
[/td][td]
220​
[/td][td]
24​
[/td][td]
240​
[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: SheetName[/td][/tr][/table]

AFTER

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]
A​
[/th][th]
B​
[/th][th]
C​
[/th][th]
D​
[/th][th]
E​
[/th][th]
F​
[/th][th]
G​
[/th][th]
H​
[/th][th]
I​
[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
1​
[/td][td]Header 1[/td][td]Header 2[/td][td]Header 3[/td][td]Header 4[/td][td]Header 5[/td][td]Month[/td][td]Year[/td][td]Quantity[/td][td]Value[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
2​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]Mar[/td][td]
2018​
[/td][td]
8​
[/td][td]
80​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
3​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]Apr[/td][td]
2018​
[/td][td]
10​
[/td][td]
100​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
4​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]May[/td][td]
2018​
[/td][td]
12​
[/td][td]
120​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
5​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]Jun[/td][td]
2018​
[/td][td]
14​
[/td][td]
140​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
6​
[/td][td]A2[/td][td]B2[/td][td]C2[/td][td]D2[/td][td]E2[/td][td]Jul[/td][td]
2018​
[/td][td]
16​
[/td][td]
160​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
7​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]Mar[/td][td]
2018​
[/td][td]
9​
[/td][td]
90​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
8​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]Apr[/td][td]
2018​
[/td][td]
11​
[/td][td]
110​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
9​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]May[/td][td]
2018​
[/td][td]
13​
[/td][td]
130​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
10​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]Jun[/td][td]
2018​
[/td][td]
15​
[/td][td]
150​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
11​
[/td][td]A3[/td][td]B3[/td][td]C3[/td][td]D3[/td][td]E3[/td][td]Jul[/td][td]
2018​
[/td][td]
17​
[/td][td]
170​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
12​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]Mar[/td][td]
2018​
[/td][td]
10​
[/td][td]
100​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
13​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]Apr[/td][td]
2018​
[/td][td]
12​
[/td][td]
120​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
14​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]May[/td][td]
2018​
[/td][td]
14​
[/td][td]
140​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
15​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]Jun[/td][td]
2018​
[/td][td]
16​
[/td][td]
160​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
16​
[/td][td]A4[/td][td]B4[/td][td]C4[/td][td]D4[/td][td]E4[/td][td]Jul[/td][td]
2018​
[/td][td]
18​
[/td][td]
180​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
17​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]Mar[/td][td]
2018​
[/td][td]
11​
[/td][td]
110​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
18​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]Apr[/td][td]
2018​
[/td][td]
13​
[/td][td]
130​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
19​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]May[/td][td]
2018​
[/td][td]
15​
[/td][td]
150​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
20​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]Jun[/td][td]
2018​
[/td][td]
17​
[/td][td]
170​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
21​
[/td][td]A5[/td][td]B5[/td][td]C5[/td][td]D5[/td][td]E5[/td][td]Jul[/td][td]
2018​
[/td][td]
19​
[/td][td]
190​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
22​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]Mar[/td][td]
2018​
[/td][td]
12​
[/td][td]
120​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
23​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]Apr[/td][td]
2018​
[/td][td]
14​
[/td][td]
140​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
24​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]May[/td][td]
2018​
[/td][td]
16​
[/td][td]
160​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
25​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]Jun[/td][td]
2018​
[/td][td]
18​
[/td][td]
180​
[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]
26​
[/td][td]A6[/td][td]B6[/td][td]C6[/td][td]D6[/td][td]E6[/td][td]Jul[/td][td]
2018​
[/td][td]
20​
[/td][td]
200​
[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Results[/td][/tr][/table]
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Solved
Web Query in VBA Loop through tables on page to choose get tags from table instead of text
2
Replies
13
Views
607
Domenic
D
M
  • Solved
Condition formatting - count how many of the same color OR value appears in the list ?
Replies
5
Views
134
Asbestos_Jen
Asbestos_Jen
L
  • Question Question
INDEX MATCH
Replies
1
Views
334
Fluff
Fluff
JohnZ1156
  • Question Question
Multi-line Header Fonts not working suddenly
Replies
5
Views
260
sijpie
sijpie
N
  • Question Question
Data Transformation using VBA like subtotal
Replies
1
Views
140
Domenic
D

Forum statistics

Threads
1,223,902
Messages
6,175,278
Members
452,629
Latest member
SahilPolekar

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top