先以一个表中举例,然后只需将前后的表名加上即可。
在C1单元格输入以下公式,然后向下填充公式
=OFFSET(A$1,INT((ROW(A1)-1)/COUNT(B:B)),)&OFFSET(B$1,MOD(ROW(A1)-1,COUNT(B:B)),)
详见附图
在表3中输入以下公式
=OFFSET(Sheet1!A$1,INT((ROW(A1)-1)/COUNT(Sheet2!A:A)),)&OFFSET(Sheet2!A$1,MOD(ROW(A1)-1,COUNT(Sheet2!A:A)),)
如图,在D1中输入公式
=OFFSET($A$1,INT(ROW(A3)/3)-1,)&OFFSET($B$1,MOD(ROW(A3),3),)
下拉填充。
sub 复制()
dim i as long
dim j as long
dim t as long
dim s as string
for i = 1 to 500
for j = 1 to 500
t=i*500+j
sheets(3).cells(t, 1) = CStr(sheets(1).cells(i,1))+CStr(sheets(2).cells(j.1).value)
next j
next i
end sub