<em>excel</em> <em>vba</em>编写一个复制，粘贴

Sub xxx()
Sheet2.Rows("1:29").Copy
Sheet1.Cells(Sheet1.[A60000].End(xlUp).Row + 13, 1).Select
ActiveSheet.Paste
End Sub

描述不是很清晰百，也看不到sheet3，只能猜度测你要的答案。回
其中，1:29是假设黄色部分为答1到29行。

Sub 取值zhidao内()
Dim rng As Range
Set rng = Range("d1:e100")
For i = 1 To 10
For ii = 1 To 100
temp = rng.Cells(ii, 1) & rng.Cells(ii, 2)
If temp = "○○容" And Range("f" & ii) = "" Then
Range("f" & ii).Resize(1, 3) = Range(Cells(ii, 1), Cells(ii, 3)).Value
Exit For
End If
Next
Next
End Sub
这个叫VBA，其实就是一门编程
编程学起来不是一蹴而就的
VBA教学书籍有很多，可以找本书看看，学学看。

有2个问题
1，你E1的数据存放百在哪里？如果不存放，E1改变后怎么使D1等于原来的E1
就好像你去整度容，整的人家都不认识了问，如果没有一个凭证（比如身答份证），别人怎么知道这个人是你啊版
2，如果工作薄001.xls不激活，那么你怎么改变E1，E1不改变这个任务也就不存在权执行的问题了