[已解决]求助：按条件选择区域，并复制粘贴到其他相应区域

zjdh

SetC = .Range("E1:E500").Find("平均",LookIn:=xlValues)        在"E1:E500列查找"平均"
If Not C Is NothingThen                                                      如果找到了则执行
    firstAddress = C.Address                                                 将地址记录到变量firstAddress
   Do                                                                                执行循环操作
   W2 = C.Row - 1                                                             对变量赋值W2=找到地址的上一行行号

shzzhy

非常感谢，基本懂了。