excel中用VB代码从sheet1复制内容到sheet2

Question

excel中用VB代码从sheet1复制内容到sheet2要怎么弄哦？
sheet1中有数据用for循环找到，然后把找到的数据复制到sheet2中，要怎么操作哦？

Answer 1

第一个问题:假如要把sheet1中A1：B15的内容复制到sheet2的B5:C19,如下
Sub Copy()
sheets("sheet1").select
Range("A1:B15").Select
Selection.Copy
sheets("sheet2"),select
Range("B5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
第二个问题稍复杂些，对于for语句，需要知道你的寻找条件和寻找方式才能编程。

Answer 2

没有具体的说明，我只能自己举个例子自己答了：
Sheet1 A列查找数据值>5的单元格（假设只有一个），并复制到sheet2中B1单元格。

Dim i As Long
For i = 1 To Sheets("Sheet1").[A65535].End(xlUp).Row
If Sheets("Sheet1").Cells(i,1) > 5 Then
Sheets("Sheet2").Cells(1,2) = Sheets("Sheet1").Cells(i,1)
End If
Next i

Sheets("Sheet1").[A65535].End(xlUp).Row用来获取A列不为空的最大行数。

Answer 3

在VB中先创建Excel的工作薄、工作表的自动化对象，然后通过自动化对象的方法访问数据，实现拷备。