如何将Sheet1 Row 1中的数据复制到Sheet2 Row2并遍历整个工作表

我有以下的情况：我有一个Excel表格，下面的数据：Excel工作表1包含以下数据：

COLUMN 1 COLUMN 2 COLUMN 3 COLUMN 4 COLUMN 5 COLUMN 6 COLUMN 7 First Name Last Name Email Phone City State Zip -------------------------------------------------------------------------------- John Adams [e-mail] 1234567 Any Town VA 12345 John William [e-mail] 1234568 Any Town VA 12345 John Smith [e-mail] 1234569 Any Town VA 12345 John Edwards [e-mail] 1234560 Any Town VA 12345 ================================ Excel Sheet 2 COLUMN 1 COLUMN 2 COLUMN 3 COLUMN 4 ------------------- ------------- ------------- JADAMS JWILLIAM JSMITH JEDWARDS {FIRST_NAME}{FIRST_NAME} {FIRST_NAME}{FIRST_NAME} {LAST_NAME} {LAST_NAME} {LAST_NAME} {LAST_NAME} {EMAIL} {EMAIL} {EMAIL} {EMAIL} {PHONE} {PHONE} {PHONE} {PHONE} {CITY} {CITY} {CITY} {CITY} {STATE} {STATE} {STATE} {STATE} {ZIP} {ZIP} {ZIP} {ZIP} 1/1/2000 1/1/2002 1/1/2005 1/1/2000 ADD UPDATE INSERT ADD HOME BUSINESS HOME BUSINESS YNYY YYNY NYYY MMMF 

我想将Sheet 1中的First Name复制到Sheet 2中，并replace{}中包含的{FIRST_NAME}和其他数据，然后遍历表1，直到扫描完所有行。

Answer 1

这里不需要VBA，只需复制Sheet1中的所有数据，然后转到Sheet2并Paste Special务必selectTranspose选项

请注意，要调出粘贴特殊对话框，您可以按Alt + E + S