Question

excel vba 选择性复制-数值问题 在线等,题不难

有a1:e1 , g1:k1. d3:h3, k3:n3四组数据是经过函数运算出来的. 都是sheet1中的

现在,我想把上面的前二组数据复制到sheet3中的第3行中去,只要数值不要公式.复制过去放在一行就行,连续的.

后二组复制到第5行,也只要数值.也要连续的.就是d3:h3,k3:n3都复制到sheet3的第5行去,从a5开始排到最后,顺序不变.

Answer 1

第一组：
sheets("sheet3").range("a3:e3").value= _
sheets("sheet1").range("a1:e1").value
第二组：
sheets("sheet3").range("f3:j3").value= _
sheets("sheet1").range("g1:k1").value
第三组：
sheets("sheet3").range("a5:e5").value= _
sheets("sheet1").range("d3:h3").value
第四组：
sheets("sheet3").range("f5:i5").value= _
sheets("sheet1").range("k3:n3").value

也可以用
range(区域).Column －起始列
range(区域).Columns －总列数
range(区域).Row －起始行
range(区域).Rows －总行数
的属性通过循环赋值

Answer 2

Sub
选择性复制问题()
Dim
i%,
r%
Dim
rag
As
Range
i
=
1
For
Each
rag
In
Sheets("Sheet2").Range("D1:D100")
If
rag.Value
=
a
Then
r
=
rag.Row
Sheets("Sheet2").Rows([r]).Copy
Sheets("Sheet1").Rows([i])
i
=
i
+
1
End
If
Next
End
Sub