Sub 复制A1()
Dim n As Byte
Do while n<=worksheets.count
n = n + 1
Sheets(n).Range("a1").Copy Sheets(35).Cells(n, 3)
'Sheets(35).Cells(n, 3)=Sheets(n).Range("a1")
Loop
End Sub
Sub 复制A1()
for i=1 to worksheets.count
if i<>35 then Sheets(i).Range("a1").Copy Sheets(35).Cells(i, 3)
'if i<>35 then Sheets(35).Cells(i, 3)=Sheets(i).Range("a1")
next
End Sub
Sub 复制A1()
i=1
for each st in worksheets
with st
if .name<>Sheets(35).name then .Range("a1").Copy Sheets(35).Cells(i, 3)
'if .name<>Sheets(35).name then Sheets(35).Cells(i, 3)=.Range("a1")
i=i+1
end with
next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024