Rearranging categorical data into two columns

I need to convert a table with multiple columns into one with two columns only, which denote all the possible interactions. I have categorical data on topics present (1) or not (0) in different text sections (ID). The format is the following:

ID 105 101 108 202 ... 2099
1 1 1 1 0 ... 0
2 1 0 1 0 ... 0
3 1 1 0 1 ... 0
...

The column titles correspond to different topics and do not contain all numbers between 1 and 2099. I need to convert the data in the following format:

Var1 Var2
105 101
105 108
101 108
105 108
105 101
105 101
105 202
101 202
...

Unfortunatelly, macros are not my strong side. What VBA do i need in order to do this?

Hi petyaall,
Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Ok. Here's a slightly bigger extraction from my data. The file contains two sheets - before and after - as you suggested.

Hi Petya,
try it

Please Login or Register  to view this content.

Nilem, thank you very much! I manged to run the macro on my full dataset and i think it works, conisidering that the total number of transactions estimated by it is the expected number.

I hope one day i will be able to write such codes myself. Thanks again!