xop_thy,80,avr_njk,50,str_nyu,60
avr_irt,70,str_nhj,60,avr_ngt,50
str_tgt,80,xop_nmg,50,xop_nth,40
cyv_gty,40,cop_thl,40,vir_tyk,80
vir_plo,20,vir_thk,40,ijk_yuc,70
cop_thy,70,ijk_yuc,80,irt_hgt,80

awk -F, '
NR==FNR {for (i=1; i<=3; i++)   {IX = (i-1)*3+1
                                 split ($IX, T, "_")
                                 O[T[1] FS i] = $IX FS FS $(IX+2)
                                }
         next
        }
        {for (i=1; i<=3; i++)  printf "%s%s", O[$1 FS i] (O[$1 FS i]?_:FS FS) , i==3?ORS:FS
        }
' org1.csv key.txt > test.csv

awk -F "," '
NR==FNR {for (i=1; i<=3; i++)   {IX = (i-1)*3+1
                                 split ($IX, T, "_")
                                 O[T[1] FS i] = $IX FS FS $(IX+2)
                                }
         next
        }
        {for (i=1; i<=3; i++)  printf "%s%s", O[$1 FS i] (O[$1 FS i]?_:FS FS) , i==3?ORS:FS
        }
' org1.csv key.txt > test.csv

xop_thy,,avr_njk,,,,,,
avr_irt,,str_nhj,,,,,,
str_tgt,,xop_nmg,,,,,,
cyv_gty,,cop_thl,,,,,,
vir_plo,,vir_thk,,,,,,
cop_thy,,ijk_yuc,,,,,,
,,,,,,,,
,,,,,,,,
,,,,,,,,

xop_thy,,avr_njk,,,,,,
avr_irt,,str_nhj,,,,,,
str_tgt,,xop_nmg,,,,,,
cyv_gty,,cop_thl,,,,,,
vir_plo,,vir_thk,,,,,,
cop_thy,,ijk_yuc,,,,,,
,,,,,,,,
,,,,,,,,
,,,,,,,,

xop_thy	80	avr_njk	50	str_nyu	60,,,,,,,,
avr_irt	70	str_nhj	60	avr_ngt	50,,,,,,,,
str_tgt	80	xop_nmg	50	xop_nth	40,,,,,,,,
cyv_gty	40	cop_thl	40	vir_tyk	80,,,,,,,,
vir_plo	20	vir_thk	40	ijk_yuc	70,,,,,,,,
cop_thy	70	ijk_yuc	80	irt_hgt	80,,,,,,,,
,,,,,,,,
,,,,,,,,
,,,,,,,,