If you are willing to upgrade your version of Excel, then you can use Power Query to achieve this by unpivoting the data.
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"F_Name", type text}, {"Sur_name", type text}, {"ID_number", Int64.Type}, {"Weekday", type text}, {"Column1", type text}}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"F_Name", "Sur_name", "ID_number"}, "Attribute", "Value"),
#"Removed Columns" = Table.RemoveColumns(#"Unpivoted Other Columns",{"Attribute"})
in
#"Removed Columns"
Excel 2016 (Windows) 32 bit
|
A |
B |
C |
D |
1 |
F_Name |
Sur_name |
ID_number |
Value |
2 |
ABC |
DEF |
123456 |
Mon |
3 |
ABC |
DEF |
123456 |
Wed |
4 |
MNO |
PQR |
234567 |
Wed |
5 |
MNO |
PQR |
234567 |
Fri |
Otherwise you will need to wait for another solution.
Bookmarks