答案1
我设法这样做:
Contact = Worksheets("Sheet16").Cells(2,8).Value
Contact1 = Worksheets("Sheet16").Cells(2,12).Value
Contact2 = Worksheets("Sheet16").Cells(2,16).Value
Contact3 = Worksheets("Sheet16").Cells(2,20).Value
' We build the emails below
Worksheets("Sheet16").Cells(12,1).Value = Contact & ";" & Contact1 & ";" & Contact2 & ";" & Contact3