作者：乔山办公网日期：
返回目录：excel表格制作
Sub bb()
Set book1 = Workbooks("book1.xls")
Set book2 = Workbooks("book2.xls")
With book1.Sheets("sheet1")
endrow = .Range("d65535").End(xlUp).Row
For i = endrow To 1 Step -1
If Range("d" & i) <> 0 Then
erow = i
Exit For
End If
Next
'以上e79fa5e98193e78988e69d83362代码找到最后一个非零值
If d1 <> 0 Then
.Range("A1:d" & erow).Copy _
Workbooks("Book2.xls").Sheets("sheet2").Range("A1")
'book1的sheet1的A1：d?复制到book2的sheet2
book1.Sheets("sheet3").Range("A1:d" & erow).Copy _
book2.Sheets("sheet6").Range("A1")
'book1的sheet3的A1：d?复制到book2的sheet6
book1.Sheets("sheet4").Range("A1:d" & erow).Copy _
book2.Sheets("sheet7").Range("A1")
'book1的sheet4的A1：d?复制到book2的sheet7
book1.Sheets("sheet5").Range("A1:c" & erow).Copy _
book2.Sheets("sheet8").Range("A1")
'book1的sheet5的A1：C?复制到book2的sheet8
book1.Sheets("sheet8").Range("A1:d" & erow).Copy _
book2.Sheets("sheet11").Range("A1")
'book1的sheet8的A1：C?复制到book2的sheet11
End If
End With
'
End Sub
'以上代码属通用性
1 把某一区域百的内容读入到数度组中回:
Dim strArray() As Variant
Dim wk_data As Variant
Set wk_data = Sheets("Sheet1")
strArray = wk_data.Range("A1:CV100").Value
2 把数组的内容写入答：
wk_data.Range("A1").Resize(UBound(strArray, 1), UBound(strArray, 2)).Value = strArray
下面来的例子自代百码，你可度以知参考：道
Option Explicit
Sub xxx()
Dim c As Range
Set c = Selection.Cells(1, 1)
Range([c5], c).Select
End Sub