2.Range.Copy 方法 将单元格区域复制到指定的区域
Sub 移动复制()
Range("a1:d8").Cut Range("f1") '将a1:d8区域剪切到起始单元格为f1的区域
Range("f1:i8").Copy Range("a1") '将f1:i8区域复制到起始单元格为a1的区域
End Sub
*************************
Sub 另类复制方法()
'Sheet1中先在第3列加入一个空列，
格
式参照右侧，参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow
'将Sheet2中的第3列
复制
到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(...
EXCEL是由很多的对象组成，每个对象都有他的属性和方法，所谓的对象可以理解为所有存在的东西，在同一个程序里的对象之间是存在关系的，比如说上下级关系或同级关系，上下级关系之间用英文句点“.”连接。
application.workbooks(1).worksheets(1).range(“A1”)
意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1
单元
格
，但一般情况下我们不需要这么麻烦，如果我们只对当前的表
格
操作，前面的都可以省略，只需要写range(“A1
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Range("G:G").Cut Destination:=ws.Range("A1")
Next ws
End Sub
使用该代码，您可以在当前Excel工作簿的所有工作...
Do While r <= Sheet2.Rows.Count
'Range("K1").EntireColumn.Cells(i, 1).Value = Range("F2").EntireColumn.Cells(r, 1).Value
Range("L1").EntireColumn.Cells(i, 1).V
Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).Value
End Sub
Resize函数，是用于调整指定区域的大小，返回代表调整后的区域，也就是原来有个区域，返回值是另外一个区域。
