Something like this?
In[28]:= vars = Table[Symbol["dddd" <> ToString[i]], {i, 1, 10}]
Out[28]= {dddd1, dddd2, dddd3, dddd4, dddd5, dddd6, dddd7, dddd8, \
dddd9, dddd10}
In[29]:= values = Table[i*3, {i, 1, 10}]
Out[29]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}
In[31]:= MapThread[Set[#1, #2] &, {vars, values}]
Out[31]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}
In[33]:= vars
Out[33]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}
or in one line, you need to first evaluate the Symbols:
Table[Evaluate[Symbol["dddde" <> ToString[i]]] = i*3, {i, 1, 10}]
Regards
