a = ['apple', 'orange']
d = {'apple': [2, 4], 'carrot': [44, 33], 'orange': [345, 667]}
fo = open('test.csv', 'w')
fo.write(',\t'.join(a) + '\n')
for y in range(len(d[a[0]])):
    fo.write(',\t'.join([str(d[i][y]) for i in a]) + '\n')
fo.close()
Получить значения словаря для каждого ключа в списке