vba复制代码怎么写 _复制

1.excel用vba实现内容的复制代码怎么写打开工作表，找到原数据，。
插入表单按钮。ALT+F11打开VBA代码编辑器，输入宏代码如下。
将表单按钮指定到宏，运行代码。查看运行后的效果，目标区域出现了和原数据一样的数据，但位置发生了变化。
输入的代码内容并解释。Sub 运行代码（）For i = 1 To 12Range("c" & i + 2) = Range("b" & i)Next iEnd Sub1.原数据单元格区域 b1 b2 b3 b4 到 b12;2.目标单元格区域出现 c3 c4 c5 c6 c7 到 c14;3.原数据区域在后，目标区域在前；4.目标区域和原数据之间的相同数据之间的位置变化：原数据与目标区域之间行号之差；5.使用FOR NEXT循环，步长为1，步长为目标单元格行号之差。
2.Excel VBA 复制特定行的代码该如何写Sub aa()
i = Sheet1.[b65536].End(xlUp).Row
For j = 1 To i
If Sheet1.Cells(j, 2) = "C大队" Then
k = k + 1
【vba复制代码怎么写】Sheet1.Rows(j).Copy Sheet2.Cells(k, 1)
End If
Next
End Sub
以上代码从SHEET1复制到SHEET2
3.请问VBA复制粘贴代码Sub Demo()
' 最简洁的写法.
[A2] = [A1]
' 相对地址法.
Range("A2").Value = http://www.xuexi88.com/zhishi/Range("A1").Value
' 绝对地址法.
Range("$A$2").Value = http://www.xuexi88.com/zhishi/Range("$A$1").Value
' 利用 Cells 集合指定要写入的单元格.
Cells(2, 1).Value = http://www.xuexi88.com/zhishi/Cells(1, 1).Value
End Sub
4.怎么用vba把vba代码复制粘贴试试下面的代码：
Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, m&, w As WorksheetFunction, wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set w = WorksheetFunction
MyPath = ThisWorkbook.Path &； "\采集多数据"
MyName = Dir(MyPath & "*.xls*")
[a1].CurrentRegion.Offset(1).ClearContents
Do While MyName ""
With GetObject(MyPath & MyName)
With .Sheets(1)
If w.CountA(.UsedRange.Offset(1)) Then
m = m + 1
If m = 1 Then
Set wb = Workbooks.Add(xlWBATWorksheet)
Set sh = wb.ActiveSheet
.[a1].CurrentRegion.Copy sh.[a1]
Else
.[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
End With
.Close False
End With
MyName = Dir
Loop
wb.SaveAs Filename:=ThisWorkbook.Path &； "\采集多数据20130422.xls", FileFormat:=xlExcel8
wb.Close
Application.ScreenUpdating = True
MsgBox "ok"
End Sub
5.复制表的vba代码我的思路：在有模板的工作簿中，建立一个木块，并输入下列代码。
Sub 复制模板工作表（）
Dim W As Workbook '定义变量W为工作簿对象
For Each W In Workbooks '遍历已经打开的工作簿对象
If W Is Application.ThisWorkbook = False Then '如果W工作簿对象和代码所在工作簿对象比较，不相同，则执行。IS是比较运算符，比较两个对象是否相同，相同返回True，不相同返回False 。你可以查基础书籍。
Application.ThisWorkbook.Worksheets（"模板"）.Copy After:=W.Worksheets(W.Worksheets.Count) '将代码所在工作簿中的模板工作表拷贝到W工作表的最后一个工作表之后。
End If
Next
End Sub
我也是新手，不过喜欢！
6.excel VBA 复制sheet到另一表格的sheet 代码怎么写,详细如下Dim Book2 As Workbook
Dim tmpSt As Worksheet
Set Book2 = Workbooks("2")
For Each tmpSt In ActiveWorkbook.Sheets
tmpSt.Activate
tmpSt.Cells.Select
Application.CutCopyMode = False
Selection.Copy
Select Case tmpSt.Name
Case "A"
Book2.Sheets（"数据1"）.Activate
Case "B"
Book2.Sheets（"数据2"）.Activate
Case "C"
Book2.Sheets（"数据3"）.Activate