我有以下情况： 我有一张带有以下数据的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 JA@gmail.com 1234567 Any Town VA 12345
John William JW@gmail.com 1234568 Any Town VA 12345
John Smith JW@gmail.com 1234569 Any Town VA 12345
John Edwards JE@gmail.com 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
Y N Y Y
Y Y N Y
N Y Y Y
M M M F
我想将工作表1中的名字复制到工作表2中，并替换{FIRST_NAME}和{}中包含的其他数据，然后循环工作表1直到扫描完所有行。
答案 0 :(得分：0)
您在这里不需要VBA，只需复制Sheet1中的所有数据，然后转到Sheet2并Paste Special一定要选择Transpose选项
注意，要调出粘贴特殊对话框，您可以按 Alt + E + S