自己写过的一个vba脚本，用于移动copy一点数据。

Sub Macro1()
Sheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Sheets("公式").Select
Range("A1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy  '拷贝日期

Sheets("ALL").Select
Call moveEmpty
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ActiveCell.Value

Selection.Copy
Call copyData("Service")

'---------------拷贝数据----
Call copyImpl("all classes", "ALL")

End Sub

Sub copyData(sheetName)
Sheets(sheetName).Select
Call moveEmpty
ActiveSheet.Paste
End Sub

Sub copyImpl(strNamespace, sheetName)
Sheets("Sheet1").Select
selectRange (strNamespace)
Application.CutCopyMode = False
Selection.Copy
Sheets(sheetName).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
End Sub

Sub selectRange(stringv)

Range("A1").Select
Dim i As Integer
i = 0
While (ActiveCell.Value <> stringv)
ActiveCell.Offset(1, 0).Select
i = i + 1
If i > 200 Then
GoTo ttt
End If
Wend
ttt:
Dim cell
Set cell = ActiveCell.Cells

Debug.Print cell.Row
Debug.Print cell.Column
Range(cell, Cells(cell.Row, cell.Column + 4)).Select

End Sub

'移动到空行
Sub moveEmpty()
Dim i As Integer
i = 2
Cells(i, 1).Select
While (ActiveCell.Value <> "")
i = i + 1
Cells(i, 1).Select
Wend
End Sub